Changeset 87 for trunk/NEMO/OPA_SRC
- Timestamp:
- 2004-04-22T15:41:04+02:00 (20 years ago)
- Location:
- trunk/NEMO/OPA_SRC/TRA
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/TRA/trabbl.F90
r32 r87 339 339 END DO 340 340 341 IF( l_ctl .AND. lwp) THEN341 IF(l_ctl) THEN 342 342 zta = SUM( ta(2:jpim1,2:jpjm1,1:jpkm1) * tmask(2:jpim1,2:jpjm1,1:jpkm1) ) 343 343 zsa = SUM( sa(2:jpim1,2:jpjm1,1:jpkm1) * tmask(2:jpim1,2:jpjm1,1:jpkm1) ) -
trunk/NEMO/OPA_SRC/TRA/tranxt.F90
r3 r87 163 163 ! ! =============== 164 164 165 IF( l_ctl .AND. lwp) THEN ! print mean field (used for debugging)165 IF(l_ctl) THEN ! print mean field (used for debugging) 166 166 WRITE(numout,*) ' nxt - Tn: ', SUM(tn*tmask), ' Sn: ', SUM(sn*tmask) 167 167 ENDIF -
trunk/NEMO/OPA_SRC/TRA/traqsr.F90
r32 r87 172 172 ENDIF 173 173 174 IF( l_ctl .AND. lwp) THEN ! print mean trends (used for debugging)174 IF(l_ctl) THEN ! print mean trends (used for debugging) 175 175 zta = SUM( ta(2:jpim1,2:jpjm1,1:jpkm1) * tmask(2:jpim1,2:jpjm1,1:jpkm1) ) 176 176 zta = SUM( ta * tmask ) -
trunk/NEMO/OPA_SRC/TRA/trasbc.F90
r3 r87 121 121 END DO 122 122 123 IF( l_ctl .AND. lwp) THEN ! print mean trends (used for debugging)123 IF(l_ctl) THEN ! print mean trends (used for debugging) 124 124 zta = SUM( ta(2:jpim1,2:jpjm1,1:jpkm1) * tmask(2:jpim1,2:jpjm1,1:jpkm1) ) 125 125 zsa = SUM( sa(2:jpim1,2:jpjm1,1:jpkm1) * tmask(2:jpim1,2:jpjm1,1:jpkm1) ) -
trunk/NEMO/OPA_SRC/TRA/trazdf_iso.F90
r36 r87 138 138 #if defined key_traldf_eiv || defined key_esopa 139 139 REAL(wp), DIMENSION(jpi,jpk) :: & 140 ztfwg, zsfwg , zavs140 ztfwg, zsfwg 141 141 REAL(wp) :: & 142 142 zcoeg3, & 143 143 zuwk, zvwk, & 144 144 zuwki, zvwki 145 #endif 146 #if defined key_zdfddm || defined key_esopa 147 REAL(wp), DIMENSION(jpi,jpk) :: & 148 zavs 145 149 #endif 146 150 !!--------------------------------------------------------------------- … … 366 370 367 371 368 IF( l_ctl .AND. lwp) THEN ! print mean trends (used for debugging)372 IF(l_ctl) THEN ! print mean trends (used for debugging) 369 373 zta = SUM( ta(2:jpim1,2:jpjm1,1:jpkm1) * tmask(2:jpim1,2:jpjm1,1:jpkm1) ) 370 374 zsa = SUM( sa(2:jpim1,2:jpjm1,1:jpkm1) * tmask(2:jpim1,2:jpjm1,1:jpkm1) ) … … 529 533 ! ! =============== 530 534 531 IF( l_ctl .AND. lwp) THEN ! print mean trends (used for debugging)535 IF(l_ctl) THEN ! print mean trends (used for debugging) 532 536 zta = SUM( ta(2:jpim1,2:jpjm1,1:jpkm1) * tmask(2:jpim1,2:jpjm1,1:jpkm1) ) 533 537 zsa = SUM( sa(2:jpim1,2:jpjm1,1:jpkm1) * tmask(2:jpim1,2:jpjm1,1:jpkm1) ) -
trunk/NEMO/OPA_SRC/TRA/zpshde.F90
r32 r87 72 72 !! Idem for di(s) and dj(s) 73 73 !! 74 !! For rho, we call eos 2d.hwhich will compute rd~(t~,s~) at74 !! For rho, we call eos_insitu_2d which will compute rd~(t~,s~) at 75 75 !! the good depth zh from interpolated T and S for the different 76 76 !! formulation of the equation of state (eos).
Note: See TracChangeset
for help on using the changeset viewer.