Changeset 361 for trunk/NEMO
- Timestamp:
- 2005-12-21T11:58:28+01:00 (19 years ago)
- Location:
- trunk/NEMO
- Files:
-
- 1 added
- 2 deleted
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OFF_SRC/DOM/dom_oce.F90
r343 r361 48 48 npse, npsw, & !: index of south east and south west processor 49 49 nbne, nbnw, & !: logical of north east & north west processor 50 nbse, nbsw !: logical of south east & south west processor 50 nbse, nbsw, & !: logical of south east & south west processor 51 nidom 51 52 52 53 INTEGER, PUBLIC, DIMENSION(jpi) :: & !: -
trunk/NEMO/TOP_SRC/TRP/trcadv_cen2.F90
r349 r361 273 273 274 274 ! Surface value 275 IF( lk_dynspg_fsc ) THEN ! free surface-constant volume 275 IF ( lk_dynspg_rl ) THEN ! rigid lid : flux set to zero 276 zwx(:,:, 1 ) = 0.e0 277 ELSE ! free surface-constant volume 276 278 zwx(:,:, 1 ) = zwn(:,:,1) * trn(:,:,1,jn) 277 ELSE ! rigid lid : flux set to zero278 zwx(:,:, 1 ) = 0.e0279 279 ENDIF 280 280 -
trunk/NEMO/TOP_SRC/TRP/trcadv_muscl.F90
r349 r361 293 293 END DO 294 294 ! surface values 295 IF( lk_dynspg_fsc .OR. lk_dynspg_fsc_tsk ) THEN ! free surface-constant volume 295 IF( lk_dynspg_rl ) THEN ! rigid lid : flux set to zero 296 zt1(:,:, 1 ) = 0.e0 297 ELSE ! free surface 296 298 zt1(:,:, 1 ) = zwn(:,:,1) * trb(:,:,1,jn) 297 ELSE ! rigid lid : flux set to zero298 zt1(:,:, 1 ) = 0.e0299 299 ENDIF 300 300 -
trunk/NEMO/TOP_SRC/TRP/trcadv_muscl2.F90
r349 r361 357 357 358 358 ! surface values 359 IF( lk_dynspg_fsc .OR. lk_dynspg_fsc_tsk ) THEN ! free surface-constant volume 359 IF( lk_dynspg_rl ) THEN ! rigid lid : flux set to zero 360 zt1(:,:, 1 ) = 0.e0 361 ELSE ! free surface 360 362 zt1(:,:, 1 ) = zwn(:,:,1) * trb(:,:,1,jn) 361 ELSE ! rigid lid : flux set to zero362 zt1(:,:, 1 ) = 0.e0363 363 ENDIF 364 364 -
trunk/NEMO/TOP_SRC/TRP/trcadv_smolar.F90
r349 r361 186 186 187 187 ! Surface value 188 IF( lk_dynspg_fsc .OR. lk_dynspg_fsc_tsk ) THEN ! free surface-constant volume 188 IF( lk_dynspg_rl ) THEN ! rigid lid : flux set to zero 189 zkz(:,:, 1 ) = 0.e0 190 ELSE ! free surface 189 191 zkz(:,:, 1 ) = zwn(:,:,1) * trn(:,:,1,jn) * tmask(ji,jj,1) 190 ELSE ! rigid lid : flux set to zero191 zkz(:,:, 1 ) = 0.e0192 192 ENDIF 193 193 -
trunk/NEMO/TOP_SRC/TRP/trcadv_tvd.F90
r349 r361 135 135 ! upstream tracer flux in the k direction 136 136 ! Surface value 137 IF( lk_dynspg_fsc .OR. lk_dynspg_fsc_tsk ) THEN ! free surface-constant volume 137 IF( lk_dynspg_rl ) THEN ! rigid lid : flux set to zero 138 ztw(:,:,1) = 0.e0 139 ELSE ! free surface 138 140 DO jj = 1, jpj 139 141 DO ji = 1, jpi … … 142 144 END DO 143 145 END DO 144 ELSE ! rigid lid : flux set to zero145 ztw(:,:,1) = 0.e0146 146 ENDIF 147 147
Note: See TracChangeset
for help on using the changeset viewer.