Changeset 2987 for branches/2011/dev_LOCEAN_2011
- Timestamp:
- 2011-10-25T09:18:32+02:00 (13 years ago)
- Location:
- branches/2011/dev_LOCEAN_2011/NEMOGCM
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_LOCEAN_2011/NEMOGCM/CONFIG/ORCA2_LIM_PISCES/EXP00/namelist_pisces
r2977 r2987 28 28 ! ! ! (if <0 months) ! name ! (logical) ! (T/F) ! 'monthly' ! filename ! pairing ! 29 29 sn_patm = 'presatm' , -1 , 'patm' , .true. , .true. , 'yearly' , '' , '' 30 cn_dir = './' ! root directory for the location of the dynamical files 30 cn_dir = './' ! root directory for the location of the dynamical files 31 ! 32 ln_presatm = .true. ! constant atmopsheric pressure (F) or from a file (T) 31 33 / 32 34 !''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 33 35 &nampisbio ! biological parameters 34 36 !,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 35 nrdttrc = 1 ! time step frequency for biology36 wsbio = 2. ! POC sinking speed37 xkmort = 1.E-7 ! half saturation constant for mortality38 ferat3 = 10.E-6 ! Fe/C in zooplankton39 wsbio2 = 30. ! Big particles sinking speed37 nrdttrc = 1 ! time step frequency for biology 38 wsbio = 2. ! POC sinking speed 39 xkmort = 1.E-7 ! half saturation constant for mortality 40 ferat3 = 10.E-6 ! Fe/C in zooplankton 41 wsbio2 = 30. ! Big particles sinking speed 40 42 / 41 43 !''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' … … 67 69 excret = 0.05 ! excretion ratio of phytoplankton 68 70 excret2 = 0.05 ! excretion ratio of diatoms 69 ln_newprod = . FALSE. ! Enable new parame. of production (T/F)71 ln_newprod = .false. ! Enable new parame. of production (T/F) 70 72 bresp = 0.00333 ! Basal respiration rate 71 73 chlcnm = 0.033 ! Minimum Chl/C in nanophytoplankton … … 158 160 cn_dir = './' ! root directory for the location of the dynamical files 159 161 ln_dust = .true. ! boolean for dust input from the atmosphere 160 ln_river = . false. ! boolean for river input of nutrients162 ln_river = .true. ! boolean for river input of nutrients 161 163 ln_ndepo = .true. ! boolean for atmospheric deposition of N 162 164 ln_ironsed = .true. ! boolean for Fe input from sediments -
branches/2011/dev_LOCEAN_2011/NEMOGCM/CONFIG/ORCA2_OFF_PISCES/EXP00/namelist_pisces
r2977 r2987 28 28 ! ! ! (if <0 months) ! name ! (logical) ! (T/F) ! 'monthly' ! filename ! pairing ! 29 29 sn_patm = 'presatm' , -1 , 'patm' , .true. , .true. , 'yearly' , '' , '' 30 cn_dir = './' ! root directory for the location of the dynamical files 30 cn_dir = './' ! root directory for the location of the dynamical files 31 ! 32 ln_presatm = .true. ! constant atmopsheric pressure (F) or from a file (T) 31 33 / 32 34 !''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 33 35 &nampisbio ! biological parameters 34 36 !,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 35 nrdttrc = 4 ! time step frequency for biology36 wsbio = 2. ! POC sinking speed37 xkmort = 1.E-7 ! half saturation constant for mortality38 ferat3 = 10.E-6 ! Fe/C in zooplankton39 wsbio2 = 30. ! Big particles sinking speed37 nrdttrc = 4 ! time step frequency for biology 38 wsbio = 2. ! POC sinking speed 39 xkmort = 1.E-7 ! half saturation constant for mortality 40 ferat3 = 10.E-6 ! Fe/C in zooplankton 41 wsbio2 = 30. ! Big particles sinking speed 40 42 / 41 43 !''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' … … 67 69 excret = 0.05 ! excretion ratio of phytoplankton 68 70 excret2 = 0.05 ! excretion ratio of diatoms 69 ln_newprod = . FALSE. ! Enable new parame. of production (T/F)71 ln_newprod = .false. ! Enable new parame. of production (T/F) 70 72 bresp = 0.00333 ! Basal respiration rate 71 73 chlcnm = 0.033 ! Minimum Chl/C in nanophytoplankton … … 158 160 cn_dir = './' ! root directory for the location of the dynamical files 159 161 ln_dust = .true. ! boolean for dust input from the atmosphere 160 ln_river = . false. ! boolean for river input of nutrients162 ln_river = .true. ! boolean for river input of nutrients 161 163 ln_ndepo = .true. ! boolean for atmospheric deposition of N 162 164 ln_ironsed = .true. ! boolean for Fe input from sediments -
branches/2011/dev_LOCEAN_2011/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zflx.F90
r2977 r2987 46 46 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:) :: atcco2h, years 47 47 INTEGER :: nmaxrec, numco2 48 49 ! !!* nampisatm namelist (Atmospheric PRessure) * 50 LOGICAL, PUBLIC :: ln_presatm = .true. !: ref. pressure: global mean Patm (F) or a constant (F) 48 51 49 52 REAL(wp) , ALLOCATABLE, SAVE, DIMENSION(:,:) :: patm ! atmospheric pressure at kt [N/m2] … … 329 332 TYPE(FLD_N) :: sn_patm ! informations about the fields to be read 330 333 !! 331 NAMELIST/nampisatm/ sn_patm, cn_dir334 NAMELIST/nampisatm/ ln_presatm, sn_patm, cn_dir 332 335 333 336 ! ! -------------------- ! … … 344 347 READ ( numnatp, nampisatm ) 345 348 ! 346 ALLOCATE( sf_patm(1), STAT=ierr ) !* allocate and fill sf_patm (forcing structure) with sn_patm 347 IF( ierr > 0 ) CALL ctl_stop( 'STOP', 'p4z_flx: unable to allocate sf_patm structure' ) 348 ! 349 CALL fld_fill( sf_patm, (/ sn_patm /), cn_dir, 'p4z_flx', 'Atmospheric pressure ', 'nampisatm' ) 350 ALLOCATE( sf_patm(1)%fnow(jpi,jpj,1) ) 351 IF( sn_patm%ln_tint ) ALLOCATE( sf_patm(1)%fdta(jpi,jpj,1,2) ) 352 ! 353 ENDIF 354 ! 355 CALL fld_read( kt, 1, sf_patm ) !* input Patm provided at kt + 1/2 356 patm(:,:) = sf_patm(1)%fnow(:,:,1) ! atmospheric pressure 357 349 ! 350 IF(lwp) THEN !* control print 351 WRITE(numout,*) 352 WRITE(numout,*) ' Namelist nampisatm : Atmospheric Pressure as external forcing' 353 WRITE(numout,*) ' constant atmopsheric pressure (F) or from a file (T) ln_presatm = ', ln_presatm 354 WRITE(numout,*) 355 ENDIF 356 ! 357 IF( ln_presatm ) THEN 358 ALLOCATE( sf_patm(1), STAT=ierr ) !* allocate and fill sf_patm (forcing structure) with sn_patm 359 IF( ierr > 0 ) CALL ctl_stop( 'STOP', 'p4z_flx: unable to allocate sf_patm structure' ) 360 ! 361 CALL fld_fill( sf_patm, (/ sn_patm /), cn_dir, 'p4z_flx', 'Atmospheric pressure ', 'nampisatm' ) 362 ALLOCATE( sf_patm(1)%fnow(jpi,jpj,1) ) 363 IF( sn_patm%ln_tint ) ALLOCATE( sf_patm(1)%fdta(jpi,jpj,1,2) ) 364 ENDIF 365 ! 366 IF( .NOT.ln_presatm ) patm(:,:) = 1.e0 ! Initialize patm if no reading from a file 367 ! 368 ENDIF 369 ! 370 IF( ln_presatm ) THEN 371 CALL fld_read( kt, 1, sf_patm ) !* input Patm provided at kt + 1/2 372 patm(:,:) = sf_patm(1)%fnow(:,:,1) ! atmospheric pressure 373 ENDIF 374 ! 358 375 END SUBROUTINE p4z_patm 359 376
Note: See TracChangeset
for help on using the changeset viewer.