Changeset 6532
- Timestamp:
- 2016-05-13T14:53:30+02:00 (8 years ago)
- Location:
- branches/CNRS/dev_r6526_PISCES_GAS/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/CNRS/dev_r6526_PISCES_GAS/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zflx.F90
r6530 r6532 42 42 CHARACTER(len=34) :: clname !: filename of pco2 values 43 43 INTEGER :: nn_offset !: Offset model-data start year (default = 0) 44 #if defined key_gas 45 REAL(wp) :: atccos 46 REAL(wp) :: atcn2o 47 #endif 44 48 45 49 !! Variables related to reading atmospheric CO2 time history -
branches/CNRS/dev_r6526_PISCES_GAS/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zopt.F90
r6530 r6532 51 51 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: emoy !: averaged PAR in the mixed layer 52 52 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: ekb, ekg, ekr !: wavelength (Red-Green-Blue) 53 #ifdef key_gas 54 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: euv !: averaged UV in the mixed layer 55 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: a350 !: wavelength (350 for COS) 56 #endif 53 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: euv !: averaged UV in the mixed layer 54 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: a350 !: wavelength (350 for COS) 57 55 58 56 INTEGER :: nksrp ! levels below which the light cannot penetrate ( depth larger than 391 m) … … 415 413 ! 416 414 NAMELIST/nampisopt/cn_dir, sn_par, ln_varpar, & 417 #if defkey_gas415 #if defined key_gas 418 416 & uvlux, & 419 417 #endif … … 501 499 502 500 ALLOCATE( ekb(jpi,jpj,jpk) , ekr(jpi,jpj,jpk), ekg(jpi,jpj,jpk), & 503 & enano(jpi,jpj,jpk) , ediat(jpi,jpj,jpk), &504 & etot_ndcy(jpi,jpj,jpk), emoy (jpi,jpj,jpk), ierr(1) )505 506 IF( lk_gas ) ALLOCATE( euv(jpi,jpj,jpk), a350(jpi,jpj,jpk), ierr(2) )501 & enano(jpi,jpj,jpk) , ediat(jpi,jpj,jpk), & 502 & etot_ndcy(jpi,jpj,jpk), emoy (jpi,jpj,jpk), STAT = ierr(1) ) 503 504 IF( lk_gas ) ALLOCATE( euv(jpi,jpj,jpk), a350(jpi,jpj,jpk), STAT = ierr(2) ) 507 505 508 506 p4z_opt_alloc = MAXVAL( ierr )
Note: See TracChangeset
for help on using the changeset viewer.