/[MITgcm]/MITgcm/model/src/do_statevars_diags.F
ViewVC logotype

Diff of /MITgcm/model/src/do_statevars_diags.F

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

revision 1.6 by jmc, Mon Jan 31 19:45:14 2005 UTC revision 1.7 by jmc, Mon Feb 14 00:46:58 2005 UTC
# Line 85  C                    and stagger/synchro Line 85  C                    and stagger/synchro
85         ENDIF         ENDIF
86  #endif /* ALLOW_THSICE */  #endif /* ALLOW_THSICE */
87    
88    #ifdef ALLOW_LAND
89           IF ( seqFlag.EQ.0 .AND. useLand ) THEN
90            DO bj=myByLo(myThid),myByHi(myThid)
91             DO bi=myBxLo(myThid),myBxHi(myThid)
92              CALL LAND_DIAGNOSTICS_FILL( myTime,myIter, bi,bj, myThid )
93             ENDDO
94            ENDDO
95           ENDIF
96    #endif /* ALLOW_LAND */
97    
98        ENDIf        ENDIf
99  #endif /* ALLOW_DIAGNOSTICS */  #endif /* ALLOW_DIAGNOSTICS */
100    
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22