New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 9751 – NEMO

Changeset 9751


Ignore:
Timestamp:
2018-06-06T15:00:58+02:00 (6 years ago)
Author:
nicolasmartin
Message:

Fix for OFF_PISCES ref cfg in DEBUG mode

Location:
NEMO/trunk
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/cfgs/ORCA2_OFF_PISCES/EXPREF/namelist_cfg

    r9742 r9751  
    11!!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    2 !! NEMO/OPA  Configuration namelist : overwrite default values defined in SHARED/namelist_ref 
     2!! NEMO/OCE  Configuration namelist : overwrite default values defined in SHARED/namelist_ref 
    33!!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    4 !!             ORCA2 - OFF - PISCES configuration                     !! 
     4!!               ORCA2 - OFF - TRC configuration                     !! 
    55!!====================================================================== 
    66!!              ***  Domain & Run management namelists  ***           !! 
     
    2020&namrun        !   parameters of the run 
    2121!----------------------------------------------------------------------- 
    22    cn_exp      =  "PISCES"   !  experience name 
     22   cn_exp      =  "TRACERS"  !  experience name 
    2323   nn_it000    =       1     !  first time step 
    24    nn_itend    =    1460     !  last  time step (std 5475) 
    25    nn_date0    =  010101     !  date at nit_0000 (format yyyymmdd) used if ln_rstart=F or (ln_rstart=T and nn_rstctl=0 or 1) 
    26    nn_stock    =    1460     !  frequency of creation of a restart file (modulo referenced to 1) 
     24   nn_itend    =    14600    !  last  time step (std 5475) 
     25   nn_date0    =  19600101   !  date at nit_0000 (format yyyymmdd) used if ln_rstart=F or (ln_rstart=T and nn_rstctl=0 or 1) 
     26   nn_stock    =    14600    !  frequency of creation of a restart file (modulo referenced to 1) 
    2727   ln_mskland  = .true.      !  mask land points in NetCDF outputs (costly: + ~15%) 
    2828   ln_cfmeta   = .true.      !  output additional data to netCDF files required for compliance with the CF metadata standard 
     
    9494                     ! Type of air-sea fluxes  
    9595   ln_usr      = .true.   !  user defined formulation                  (T => check usrdef_sbc) 
     96   ln_traqsr   = .true.    !  Light penetration in the ocean            (T => fill namtra_qsr) 
    9697/ 
    9798!----------------------------------------------------------------------- 
     
    118119&namtra_qsr    !   penetrative solar radiation                          (ln_traqsr =T) 
    119120!----------------------------------------------------------------------- 
     121   rn_si0      =   0.35       !  RGB & 2BD: shortess depth of extinction 
    120122/ 
    121123!----------------------------------------------------------------------- 
     
    422424!----------------------------------------------------------------------- 
    423425/ 
    424  
    425426!!====================================================================== 
    426427!!               ***  Observation & Assimilation  ***                 !! 
  • NEMO/trunk/src/OFF/nemogcm.F90

    r9598 r9751  
    3030   USE ldftra         ! lateral diffusivity setting    (ldf_tra_init routine) 
    3131   USE ldfslp         ! slopes of neutral surfaces     (ldf_slp_init routine) 
     32   USE traqsr         ! solar radiation penetration    (tra_qsr_init routine) 
    3233   USE trabbl         ! bottom boundary layer          (tra_bbl_init routine) 
    3334   USE traldf         ! lateral physics                (tra_ldf_init routine) 
     
    280281                           CALL tra_ldf_init    ! lateral mixing 
    281282      IF( l_ldfslp     )   CALL ldf_slp_init    ! slope of lateral mixing 
     283      IF( ln_traqsr    )   CALL tra_qsr_init    ! penetrative solar radiation 
    282284      IF( ln_trabbl    )   CALL tra_bbl_init    ! advective (and/or diffusive) bottom boundary layer scheme 
    283285 
  • NEMO/trunk/src/TOP/PISCES/P4Z/p4zbio.F90

    r9598 r9751  
    9999      ENDIF 
    100100      ! 
    101       CALL p4z_agg  ( kt, knt )     ! Aggregation of particles 
     101      CALL p4z_agg     ( kt, knt )     ! Aggregation of particles 
    102102      CALL p4z_rem     ( kt, knt )     ! remineralization terms of organic matter+scavenging of Fe 
    103103      CALL p4z_poc     ( kt, knt )     ! Remineralization of organic particles 
    104       IF( ln_ligand ) THEN 
    105         CALL p4z_ligand( kt, knt ) 
    106       ENDIF 
     104      ! 
     105      IF( ln_ligand )  & 
     106      & CALL p4z_ligand( kt, knt ) 
    107107      !                                                             ! 
    108108      IF(ln_ctl)   THEN  ! print mean trends (used for debugging) 
  • NEMO/trunk/src/TOP/PISCES/P4Z/p4zlys.F90

    r9598 r9751  
    123123 
    124124      IF( lk_iomput .AND. knt == nrdttrc ) THEN 
    125          IF( iom_use( "PH"     ) ) CALL iom_put( "PH"    , -1. * LOG10( hi(:,:,:) )          * tmask(:,:,:) ) 
    126          IF( iom_use( "CO3"    ) ) CALL iom_put( "CO3"   , zco3(:,:,:)    * 1.e+3            * tmask(:,:,:) ) 
    127          IF( iom_use( "CO3sat" ) ) CALL iom_put( "CO3sat", zco3sat(:,:,:) * 1.e+3            * tmask(:,:,:) ) 
    128          IF( iom_use( "DCAL"   ) ) CALL iom_put( "DCAL"  , zcaldiss(:,:,:) * 1.e+3 * rfact2r * tmask(:,:,:) ) 
     125         IF( iom_use( "PH"     ) ) CALL iom_put( "PH"    , -1. * LOG10( MAX( hi(:,:,:), rtrn ) ) * tmask(:,:,:) ) 
     126         IF( iom_use( "CO3"    ) ) CALL iom_put( "CO3"   , zco3(:,:,:)     * 1.e+3               * tmask(:,:,:) ) 
     127         IF( iom_use( "CO3sat" ) ) CALL iom_put( "CO3sat", zco3sat(:,:,:)  * 1.e+3               * tmask(:,:,:) ) 
     128         IF( iom_use( "DCAL"   ) ) CALL iom_put( "DCAL"  , zcaldiss(:,:,:) * 1.e+3 * rfact2r     * tmask(:,:,:) ) 
    129129      ENDIF 
    130130      ! 
  • NEMO/trunk/src/TOP/PISCES/P4Z/p4zsms.F90

    r9598 r9751  
    282282            CALL iom_get( numrtr, jpdom_autoglo, 'PH' , hi(:,:,:)  ) 
    283283         ELSE 
     284            CALL p4z_che                              ! initialize the chemical constants 
    284285            CALL ahini_for_at(hi) 
    285286         ENDIF 
Note: See TracChangeset for help on using the changeset viewer.