Symbol Description Uses
GGL90TKEFile 8



File Line number Procedure Code
./pkg/ggl90/ggl90_readparms.F 188 GGL90_READPARMS
      iL = MIN( iL, MAX(ILNBLNK(GGL90TKEFile),1) )
./pkg/ggl90/ggl90_readparms.F 189 GGL90_READPARMS
      WRITE(msgBuf,'(A,A)')'GGL90: GGL90TKEFile = ',GGL90TKEFile(1:iL)
./pkg/ggl90/ggl90_readparms.F 44 GGL90_READPARMS
     &     GGL90TKEFile
./pkg/ggl90/ggl90_readparms.F 75 GGL90_READPARMS
      GGL90TKEFile         = ' '
./pkg/ggl90/ggl90_init.F 64 GGL90_INIT
       IF ( GGL90TKEFile .NE. ' ' ) THEN
./pkg/ggl90/ggl90_init.F 66 GGL90_INIT
        CALL READ_FLD_XYZ_RL( GGL90TKEFile, ' ', GGL90TKE, 0, myThid )
./pkg/ggl90/GGL90.h 56 NO PROCEDURE
      CHARACTER*(MAX_LEN_FNAM) GGL90TKEFile
./pkg/ggl90/GGL90.h 57 NO PROCEDURE
      COMMON /GGL90_PARMS_C/ GGL90TKEFile