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

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

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

revision 1.4 by jmc, Tue Feb 18 15:34:25 2003 UTC revision 1.5 by heimbach, Fri Mar 7 23:47:22 2003 UTC
# Line 77  c     IF ( startTime .NE. 0. ) RETURN Line 77  c     IF ( startTime .NE. 0. ) RETURN
77  c     IF ( buoyancyRelation .EQ. 'OCEANIC' ) THEN  c     IF ( buoyancyRelation .EQ. 'OCEANIC' ) THEN
78        IF ( useDynP_inEos_Zc ) THEN        IF ( useDynP_inEos_Zc ) THEN
79    
80    #ifndef ALLOW_AUTODIFF_TAMC
81    cph-- deal with this iterative loop for AD once it will
82    cph-- really be needed;
83    cph-- would need storing of totPhiHyd for each npiter
84    
85         rmspp    = 1. _d 0         rmspp    = 1. _d 0
86         rmsppold = 0. _d 0         rmsppold = 0. _d 0
87         npiter = 0         npiter = 0
# Line 163  C     print some diagnostics Line 168  C     print some diagnostics
168         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
169       &      SQUEEZE_RIGHT , 1)       &      SQUEEZE_RIGHT , 1)
170    
171    #endif /* ALLOW_AUTODIFF_TAMC */
172    
173    c-- else of if useDynP_inEos_Zc
174        ELSE        ELSE
175  C     print a message and DO nothing  C     print a message and DO nothing
176         WRITE(msgBuf,'(A,A)')         WRITE(msgBuf,'(A,A)')
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22