Changeset 3319 for trunk/NEMOGCM/NEMO/TOP_SRC
- Timestamp:
- 2012-03-05T17:03:27+01:00 (12 years ago)
- Location:
- trunk/NEMOGCM/NEMO/TOP_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/trcnam.F90
r3294 r3319 60 60 !! 61 61 NAMELIST/namtrc/ nn_dttrc, nn_writetrc, ln_rsttr, nn_rsttr, & 62 & cn_trcrst_in, cn_trcrst_out, sn_tracer, ln_trcdta 62 & cn_trcrst_in, cn_trcrst_out, sn_tracer, ln_trcdta, ln_trcdmp 63 63 #if defined key_trdmld_trc || defined key_trdtrc 64 64 NAMELIST/namtrc_trd/ nn_trd_trc, nn_ctls_trc, rn_ucf_trc, & … … 92 92 END DO 93 93 ln_trcdta = .FALSE. 94 ln_trcdmp = .FALSE. 94 95 95 96 … … 115 116 WRITE(numout,*) ' restart for passive tracer ln_rsttr = ', ln_rsttr 116 117 WRITE(numout,*) ' control of time step for passive tracer nn_rsttr = ', nn_rsttr 117 WRITE(numout,*) ' first time step for pass. trac. nittrc000 = ', nittrc000 118 WRITE(numout,*) ' frequency of outputs for passive tracers nn_writetrc = ', nn_writetrc 119 WRITE(numout,*) ' Read inputs data from file ln_trcdta = ', ln_trcdta 118 WRITE(numout,*) ' first time step for pass. trac. nittrc000 = ', nittrc000 119 WRITE(numout,*) ' frequency of outputs for passive tracers nn_writetrc = ', nn_writetrc 120 WRITE(numout,*) ' Read inputs data from file (y/n) ln_trcdta = ', ln_trcdta 121 WRITE(numout,*) ' Damping of passive tracer (y/n) ln_trcdmp = ', ln_trcdmp 120 122 WRITE(numout,*) ' ' 121 123 DO jn = 1, jptra -
trunk/NEMOGCM/NEMO/TOP_SRC/trcstp.F90
r3294 r3319 56 56 IF( nn_timing == 1 ) CALL timing_start('trc_stp') 57 57 ! 58 IF( kt == nittrc000 ) THEN 59 CALL iom_close( numrtr ) ! close input passive tracers restart file 60 IF( lk_trdmld_trc ) CALL trd_mld_trc_init ! trends: Mixed-layer 61 ENDIF 58 IF( kt == nittrc000 .AND. lk_trdmld_trc ) CALL trd_mld_trc_init ! trends: Mixed-layer 62 59 ! 63 IF( lk_vvl ) THEN ! update ocean volume due to ssh temporal evolution60 IF( lk_vvl ) THEN ! update ocean volume due to ssh temporal evolution 64 61 DO jk = 1, jpk 65 62 cvol(:,:,jk) = e1e2t(:,:) * fse3t(:,:,jk) * tmask(:,:,jk) 66 63 END DO 67 IF( lk_degrad ) cvol(:,:,:) = cvol(:,:,:) * facvol(:,:,:) ! degrad option: reduction by facvol64 IF( lk_degrad ) cvol(:,:,:) = cvol(:,:,:) * facvol(:,:,:) ! degrad option: reduction by facvol 68 65 areatot = glob_sum( cvol(:,:,:) ) 69 66 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.