/[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.1 by jmc, Tue Jan 16 04:38:35 2007 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 50  C     prec    :: precision of pickup fil Line 50  C     prec    :: precision of pickup fil
50  C     msgBuf  :: Informational/error meesage buffer  C     msgBuf  :: Informational/error meesage buffer
51        INTEGER n,prec,iRec,lChar        INTEGER n,prec,iRec,lChar
52        CHARACTER*(MAX_LEN_FNAM) fn        CHARACTER*(MAX_LEN_FNAM) fn
53    #ifdef ALLOW_MNC
54        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
55    #endif
56  CEOP  CEOP
57    
58  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
# Line 104  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.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22