- Timestamp:
- 2016-05-22T20:11:06+02:00 (8 years ago)
- Location:
- branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/TOP_SRC/TRP
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/TOP_SRC/TRP/trcdmp.F90
r6309 r6596 201 201 ENDIF 202 202 ! 203 IF( lzoom .AND. .NOT.lk_c1d ) nn_zdmp_tr = 0 ! restoring to climatology at closed north or south boundaries204 203 SELECT CASE ( nn_zdmp_tr ) 205 204 CASE ( 0 ) ; IF(lwp) WRITE(numout,*) ' tracer damping throughout the water column' -
branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/TOP_SRC/TRP/trdmxl_trc.F90
r6140 r6596 428 428 ENDIF 429 429 430 IF ( cp_cfg .NE. 'gyre' ) THEN ! other than GYRE configuration 431 ! GYRE : for diagnostic fields, are needed if cyclic B.C. are present, but not for purely MPI comm. 432 ! therefore we do not call lbc_lnk in GYRE config. (closed basin, no cyclic B.C.) 430 !!gm Test removed, nothing specific to a configuration should survive out of usrdef modules 431 !!gm IF ( cp_cfg .NE. 'gyre' ) THEN ! other than GYRE configuration 432 !!gm ! GYRE : for diagnostic fields, are needed if cyclic B.C. are present, but not for purely MPI comm. 433 !!gm ! therefore we do not call lbc_lnk in GYRE config. (closed basin, no cyclic B.C.) 433 434 DO jn = 1, jptra 434 435 IF( ln_trdtrc(jn) ) THEN … … 438 439 ENDIF 439 440 END DO 440 ENDIF 441 !!gm ENDIF 442 441 443 ! ====================================================================== 442 444 ! II. Cumulate the trends over the analysis window
Note: See TracChangeset
for help on using the changeset viewer.