- Timestamp:
- 2015-06-22T16:40:58+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/restart_datestamp/NEMOGCM/NEMO/TOP_SRC/PISCES/trcini_pisces.F90
r5420 r5462 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 75 REAL(wp), SAVE :: alka0 = 2.42 3e-3_wp76 REAL(wp), SAVE :: alka0 = 2.426e-3_wp 76 77 REAL(wp), SAVE :: oxyg0 = 177.6e-6_wp 77 REAL(wp), SAVE :: po4 = 2.1 74e-6_wp78 REAL(wp), SAVE :: po4 = 2.165e-6_wp 78 79 REAL(wp), SAVE :: bioma0 = 1.000e-8_wp 79 REAL(wp), SAVE :: silic1 = 91. 65e-6_wp80 REAL(wp), SAVE :: no3 = 3 1.04e-6_wp * 7.625_wp80 REAL(wp), SAVE :: silic1 = 91.51e-6_wp 81 REAL(wp), SAVE :: no3 = 30.9e-6_wp * 7.625_wp 81 82 ! 82 83 INTEGER :: ji, jj, jk, ierr … … 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.