Changeset 3319 for trunk/NEMOGCM
- Timestamp:
- 2012-03-05T17:03:27+01:00 (12 years ago)
- Location:
- trunk/NEMOGCM
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/CONFIG/ORCA2_LIM_PISCES/EXP00/namelist_top
r3295 r3319 16 16 ln_rsttr = .false. ! start from a restart file (T) or not (F) 17 17 nn_rsttr = 0 ! restart control = 0 initial time step is not compared to the restart file value 18 ! = 1 do not use the value in the restart file19 ! = 2 calendar parameters read in the restart file18 ! = 1 do not use the value in the restart file 19 ! = 2 calendar parameters read in the restart file 20 20 cn_trcrst_in = "restart_trc" ! suffix of pass. sn_tracer restart name (input) 21 21 cn_trcrst_out = "restart_trc" ! suffix of pass. sn_tracer restart name (output) 22 ln_trcdta = .true. ! Initialisation from data input file (T) or not (F) 22 ln_trcdta = .true. ! Initialisation from data input file (T) or not (F) 23 ln_trcdmp = .false. ! add a damping termn (T) or not (F) 23 24 ! 24 25 ! ! name ! title of the field ! initial data ! initial data ! save ! … … 34 35 sn_tracer(8) = 'PHY ' , 'Nanophytoplankton Concentration ', 'mol-C/L' , .false. , .true. 35 36 sn_tracer(9) = 'ZOO ' , 'Microzooplankton Concentration ', 'mol-C/L' , .false. , .true. 36 sn_tracer(10) = 'DOC ' , 'Dissolved organic Concentration ', 'mol-C/L' , . false., .true.37 sn_tracer(10) = 'DOC ' , 'Dissolved organic Concentration ', 'mol-C/L' , .true. , .true. 37 38 sn_tracer(11) = 'PHY2 ' , 'Diatoms Concentration ', 'mol-C/L' , .false. , .true. 38 39 sn_tracer(12) = 'ZOO2 ' , 'Mesozooplankton Concentration ', 'mol-C/L' , .false. , .true. … … 114 115 &namtrc_dmp ! passive tracer newtonian damping 115 116 !----------------------------------------------------------------------- 116 ln_trcdmp = .false. ! add a damping termn (T) or not (F)117 117 nn_hdmp_tr = -1 ! horizontal shape =-1, damping in Med and Red Seas only 118 118 ! =XX, damping poleward of XX degrees (XX>0) -
trunk/NEMOGCM/CONFIG/ORCA2_OFF_PISCES/EXP00/namelist_top
r3295 r3319 16 16 ln_rsttr = .false. ! start from a restart file (T) or not (F) 17 17 nn_rsttr = 0 ! restart control = 0 initial time step is not compared to the restart file value 18 ! = 1 do not use the value in the restart file19 ! = 2 calendar parameters read in the restart file18 ! = 1 do not use the value in the restart file 19 ! = 2 calendar parameters read in the restart file 20 20 cn_trcrst_in = "restart_trc" ! suffix of pass. sn_tracer restart name (input) 21 21 cn_trcrst_out = "restart_trc" ! suffix of pass. sn_tracer restart name (output) 22 ln_trcdta = .true. ! Initialisation from data input file (T) or not (F) 22 ln_trcdta = .true. ! Initialisation from data input file (T) or not (F) 23 ln_trcdmp = .false. ! add a damping termn (T) or not (F) 23 24 ! 24 25 ! ! name ! title of the field ! initial data ! initial data ! save ! … … 34 35 sn_tracer(8) = 'PHY ' , 'Nanophytoplankton Concentration ', 'mol-C/L' , .false. , .true. 35 36 sn_tracer(9) = 'ZOO ' , 'Microzooplankton Concentration ', 'mol-C/L' , .false. , .true. 36 sn_tracer(10) = 'DOC ' , 'Dissolved organic Concentration ', 'mol-C/L' , . false., .true.37 sn_tracer(10) = 'DOC ' , 'Dissolved organic Concentration ', 'mol-C/L' , .true. , .true. 37 38 sn_tracer(11) = 'PHY2 ' , 'Diatoms Concentration ', 'mol-C/L' , .false. , .true. 38 39 sn_tracer(12) = 'ZOO2 ' , 'Mesozooplankton Concentration ', 'mol-C/L' , .false. , .true. … … 114 115 &namtrc_dmp ! passive tracer newtonian damping 115 116 !----------------------------------------------------------------------- 116 ln_trcdmp = .false. ! add a damping termn (T) or not (F)117 117 nn_hdmp_tr = -1 ! horizontal shape =-1, damping in Med and Red Seas only 118 118 ! =XX, damping poleward of XX degrees (XX>0) -
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.