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 |
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)') |