- Timestamp:
- 2017-12-26T17:32:56+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/trcini_pisces.F90
r7753 r9169 37 37 !! ** Purpose : Initialisation of the PISCES biochemical model 38 38 !!---------------------------------------------------------------------- 39 40 39 ! 41 40 CALL trc_nam_pisces … … 46 45 47 46 END SUBROUTINE trc_ini_pisces 47 48 48 49 49 SUBROUTINE p4z_ini … … 53 53 !! ** Purpose : Initialisation of the PISCES biochemical model 54 54 !!---------------------------------------------------------------------- 55 !56 55 USE p4zsms ! Main P4Z routine 57 56 USE p4zche ! Chemical model … … 76 75 USE p5zmeso ! Sources and sinks of mesozooplankton 77 76 USE p5zmort ! Mortality terms for phytoplankton 78 79 ! 80 REAL(wp), SAVE :: sco2 = 2.312e-3_wp 81 REAL(wp), SAVE :: alka0 = 2.426e-3_wp 82 REAL(wp), SAVE :: oxyg0 = 177.6e-6_wp 83 REAL(wp), SAVE :: po4 = 2.165e-6_wp 84 REAL(wp), SAVE :: bioma0 = 1.000e-8_wp 85 REAL(wp), SAVE :: silic1 = 91.51e-6_wp 86 REAL(wp), SAVE :: no3 = 30.9e-6_wp * 7.625_wp 77 ! 78 REAL(wp), SAVE :: sco2 = 2.312e-3_wp 79 REAL(wp), SAVE :: alka0 = 2.426e-3_wp 80 REAL(wp), SAVE :: oxyg0 = 177.6e-6_wp 81 REAL(wp), SAVE :: po4 = 2.165e-6_wp 82 REAL(wp), SAVE :: bioma0 = 1.000e-8_wp 83 REAL(wp), SAVE :: silic1 = 91.51e-6_wp 84 REAL(wp), SAVE :: no3 = 30.9e-6_wp * 7.625_wp 87 85 ! 88 86 INTEGER :: ji, jj, jk, jn, ierr … … 90 88 REAL(wp) :: ztmas, ztmas1 91 89 CHARACTER(len = 20) :: cltra 92 93 !!---------------------------------------------------------------------- 94 90 !!---------------------------------------------------------------------- 91 ! 95 92 IF(lwp) THEN 96 93 WRITE(numout,*) 97 94 IF( ln_p4z ) THEN 98 WRITE(numout,*) ' p4z_ini : PISCES biochemical model initialisation' 95 WRITE(numout,*) 'p4z_ini : PISCES biochemical model initialisation' 96 WRITE(numout,*) '~~~~~~~' 99 97 ELSE 100 WRITE(numout,*) ' 101 WRITE(numout,*) ' 98 WRITE(numout,*) 'p5z_ini : PISCES biochemical model initialisation' 99 WRITE(numout,*) '~~~~~~~ With variable stoichiometry' 102 100 ENDIF 103 WRITE(numout,*) ' ~~~~~~~~~~~~~~'104 101 ENDIF 105 102 ! … … 170 167 IF( cltra == 'LGW' ) jplgw = jn !: Weak ligands 171 168 IF( cltra == 'LFe' ) jpfep = jn !: Fe nanoparticle 172 END DO169 END DO 173 170 174 171 CALL p4z_sms_init ! Maint routine 175 ! ! Time-step172 ! 176 173 177 174 ! Set biological ratios … … 275 272 276 273 IF(lwp) WRITE(numout,*) 277 IF(lwp) WRITE(numout,*) ' Initialization of PISCES tracers done'274 IF(lwp) WRITE(numout,*) ' ==>>> Initialization of PISCES tracers done' 278 275 IF(lwp) WRITE(numout,*) 279 276 ! 280 277 END SUBROUTINE p4z_ini 278 281 279 282 280 SUBROUTINE p2z_ini … … 298 296 IF(lwp) WRITE(numout,*) 299 297 IF(lwp) WRITE(numout,*) ' p2z_ini : LOBSTER biochemical model initialisation' 300 IF(lwp) WRITE(numout,*) ' ~~~~~~~ ~~~~~~~'298 IF(lwp) WRITE(numout,*) ' ~~~~~~~' 301 299 302 300 ierr = sms_pisces_alloc() … … 346 344 ! 347 345 IF(lwp) WRITE(numout,*) 348 IF(lwp) WRITE(numout,*) ' Initialization of LOBSTER tracers done'346 IF(lwp) WRITE(numout,*) ' ==>>> Initialization of LOBSTER tracers done' 349 347 IF(lwp) WRITE(numout,*) 350 348 !
Note: See TracChangeset
for help on using the changeset viewer.