/[MITgcm]/MITgcm/eesupp/src/eewrite_eeenv.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/eewrite_eeenv.F

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

revision 1.2 by cnh, Thu Apr 23 20:37:30 1998 UTC revision 1.3 by cnh, Sat Aug 22 17:51:05 1998 UTC
# Line 83  C     === Local variables === Line 83  C     === Local variables ===
83        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
84       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
85    
86        WRITE(msgBuf,'(A,I5,A)') '      nZ =', nZ,' ; /* No. levels in the vertical   */ '        WRITE(msgBuf,'(A,I5,A)') '      Nr =', Nr,' ; /* No. levels in the vertical   */ '
87        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
88       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
89    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22