Changeset 64 for trunk/NEMO/OPA_SRC/DOM/closea.F90
- Timestamp:
- 2004-04-22T14:02:25+02:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DOM/closea.F90
r32 r64 77 77 78 78 IF(lwp) WRITE(numout,*) 79 IF(lwp) WRITE(numout,*)' 80 IF(lwp) WRITE(numout,*)' 79 IF(lwp) WRITE(numout,*)'dom_clo : closed seas ' 80 IF(lwp) WRITE(numout,*)'~~~~~~~' 81 81 82 82 ! initial values … … 153 153 ncsj1(jc) = mj0( ncsj1(jc) ) 154 154 155 ncsi2(jc) = mi1( ncsi 1(jc) )156 ncsj2(jc) = mj1( ncsj 1(jc) )155 ncsi2(jc) = mi1( ncsi2(jc) ) 156 ncsj2(jc) = mj1( ncsj2(jc) ) 157 157 END DO 158 158 … … 191 191 IF( kt == nit000 ) THEN 192 192 IF(lwp) WRITE(numout,*) 193 IF(lwp) WRITE(numout,*)' 194 IF(lwp) WRITE(numout,*)' 193 IF(lwp) WRITE(numout,*)'flx_clo : closed seas ' 194 IF(lwp) WRITE(numout,*)'~~~~~~~' 195 195 196 196 ! Total surface of ocean … … 233 233 ! 2 - Computation 234 234 ! --------------- 235 zemp = 0. 0e0235 zemp = 0.e0 236 236 237 237 DO jc = 1, jpncs … … 258 258 ELSEIF( ncstt(jc) == 1 ) THEN 259 259 ! Excess water in open sea, at outflow location, excess evap shared 260 IF ( zemp(jc) <= 0. 0e0 ) THEN260 IF ( zemp(jc) <= 0.e0 ) THEN 261 261 DO jn = 1, ncsnr(jc) 262 262 ji = mi0(ncsir(jc,jn))
Note: See TracChangeset
for help on using the changeset viewer.