/[MITgcm]/MITgcm/pkg/generic_advdiff/gad_write_pickup.F
ViewVC logotype

Diff of /MITgcm/pkg/generic_advdiff/gad_write_pickup.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by jmc, Tue Feb 12 20:29:25 2008 UTC revision 1.3 by jmc, Fri May 9 21:43:16 2008 UTC
# Line 37  C     myThid  :: thread number Line 37  C     myThid  :: thread number
37  C !OUTPUT PARAMETERS: ==================================================  C !OUTPUT PARAMETERS: ==================================================
38  C  none  C  none
39    
40  #ifdef GAD_ALLOW_SOM_ADVECT  #ifdef GAD_ALLOW_TS_SOM_ADV
41  C     === Functions ====  C     === Functions ====
42        INTEGER  ILNBLNK        INTEGER  ILNBLNK
43        EXTERNAL ILNBLNK        EXTERNAL ILNBLNK
# Line 106  C       Write 2nd Order moments as conse Line 106  C       Write 2nd Order moments as conse
106    
107        ENDIF        ENDIF
108    
109  #endif /* GAD_ALLOW_SOM_ADVECT */  #endif /* GAD_ALLOW_TS_SOM_ADV */
110    
111        RETURN        RETURN
112        END        END
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22