Changeset 5348 for branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/TOP_SRC/PISCES/trcini_pisces.F90
- Timestamp:
- 2015-06-04T13:10:38+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/TOP_SRC/PISCES/trcini_pisces.F90
r4996 r5348 71 71 USE p4zmort ! Mortality terms for phytoplankton 72 72 USE p4zlys ! Calcite saturation 73 USE p4zsed ! Sedimentation & burial 73 74 ! 74 75 REAL(wp), SAVE :: sco2 = 2.312e-3_wp … … 97 98 ierr = ierr + p4z_rem_alloc() 98 99 ierr = ierr + p4z_flx_alloc() 100 ierr = ierr + p4z_sed_alloc() 99 101 ! 100 102 IF( lk_mpp ) CALL mpp_sum( ierr ) … … 107 109 CALL p4z_sms_init ! Maint routine 108 110 ! ! Time-step 109 rfact = rdttrc(1) ! ---------110 rfactr = 1. / rfact111 rfact2 = rfact / FLOAT( nrdttrc )112 rfact2r = 1. / rfact2113 114 IF(lwp) WRITE(numout,*) ' Passive Tracer time step rfact = ', rfact, ' rdt = ', rdttra(1)115 IF(lwp) write(numout,*) ' PISCES Biology time step rfact2 = ', rfact2116 117 118 111 119 112 ! Set biological ratios … … 165 158 END IF 166 159 167 ! Time step duration for biology168 xstep = rfact2 / rday169 160 170 161 CALL p4z_sink_init ! vertical flux of particulate organic matter
Note: See TracChangeset
for help on using the changeset viewer.