Changeset 15010


Ignore:
Timestamp:
2021-06-17T14:14:52+02:00 (6 months ago)
Author:
gsamson
Message:

remove cpp key 'key_c1d' and replace 'lk_c1d' by 'ln_c1d' in &namdom (#2680)

Location:
NEMO/branches/2021/ticket2680_C1D_PAPA/src
Files:
12 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2021/ticket2680_C1D_PAPA/src/ICE/icestp.F90

    r14886 r15010  
    159159                                        CALL ice_rst_opn( kt )        ! Open Ice restart file (if necessary) 
    160160         ! 
    161          IF( ln_icedyn .AND. .NOT.lk_c1d )   & 
     161         IF( ln_icedyn .AND. .NOT.ln_c1d )   & 
    162162            &                           CALL ice_dyn( kt, Kmm )       ! -- Ice dynamics 
    163163         ! 
  • NEMO/branches/2021/ticket2680_C1D_PAPA/src/OCE/ASM/asminc.F90

    r14834 r15010  
    617617!!gm 
    618618 
    619             IF( ln_zps .AND. .NOT. lk_c1d .AND. .NOT. ln_isfcav)           & 
     619            IF( ln_zps .AND. .NOT. ln_c1d .AND. .NOT. ln_isfcav)           & 
    620620               &  CALL zps_hde    ( kt, Kmm, jpts, pts(:,:,:,:,Kbb), gtsu, gtsv,        &  ! Partial steps: before horizontal gradient 
    621621               &                              rhd, gru , grv               )  ! of t, s, rd at the last ocean level 
    622             IF( ln_zps .AND. .NOT. lk_c1d .AND.       ln_isfcav)                       & 
     622            IF( ln_zps .AND. .NOT. ln_c1d .AND.       ln_isfcav)                       & 
    623623               &  CALL zps_hde_isf( nit000, Kmm, jpts, pts(:,:,:,:,Kbb), gtsu, gtsv, gtui, gtvi,    &  ! Partial steps for top cell (ISF) 
    624624               &                                  rhd, gru , grv , grui, grvi          )  ! of t, s, rd at the last ocean level 
  • NEMO/branches/2021/ticket2680_C1D_PAPA/src/OCE/C1D/c1d.F90

    r15006 r15010  
    88   !!            3.5  !  2013-10 (D. Calvert)  add namelist 
    99   !!---------------------------------------------------------------------- 
    10 #if defined key_c1d 
    11    !!---------------------------------------------------------------------- 
    12    !!   'key_c1d'                                   1D column configuration 
     10 
    1311   !!---------------------------------------------------------------------- 
    1412   !!   c1d_init      : read in the C1D namelist 
     
    2321 
    2422   PUBLIC   c1d_init   ! called by nemogcm.F90 
    25  
    26    LOGICAL , PUBLIC, PARAMETER ::  lk_c1d = .TRUE.   ! 1D config. flag 
    2723 
    2824   REAL(wp), PUBLIC ::  rn_lat1d     !: Column latitude 
     
    6763   END SUBROUTINE c1d_init 
    6864 
    69 #else 
    70    !!---------------------------------------------------------------------- 
    71    !!   Dummy module :                           No use of 1D configuration 
    72    !!---------------------------------------------------------------------- 
    73    USE par_kind         ! kind parameters 
    74    LOGICAL, PUBLIC, PARAMETER ::   lk_c1d = .FALSE.   !: 1D config. flag de-activated 
    75    REAL(wp)                   ::   rn_lat1d, rn_lon1d 
    76 CONTAINS 
    77    SUBROUTINE c1d_init               ! Dummy routine 
    78    END SUBROUTINE c1d_init 
    79 #endif 
    80  
    8165   !!====================================================================== 
    8266END MODULE c1d 
  • NEMO/branches/2021/ticket2680_C1D_PAPA/src/OCE/DOM/domain.F90

    r15008 r15010  
    4848   USE wet_dry , ONLY : ll_wd     ! wet & drying flag 
    4949   USE closea  , ONLY : dom_clo   ! closed seas routine 
     50   USE c1d 
    5051   ! 
    5152   USE in_out_manager ! I/O manager 
     
    127128      CALL dom_tile_init                ! Tile domain 
    128129 
     130      IF( ln_c1d )   CALL     c1d_init                    ! 1D column configuration 
    129131      ! 
    130132      CALL dom_hgr                      ! Horizontal mesh 
  • NEMO/branches/2021/ticket2680_C1D_PAPA/src/OCE/nemogcm.F90

    r15006 r15010  
    407407                           CALL     phy_cst         ! Physical constants 
    408408                           CALL     eos_init        ! Equation of state 
    409       IF( lk_c1d       )   CALL     c1d_init        ! 1D column configuration 
    410409                           CALL     wad_init        ! Wetting and drying options 
    411410 
     
    459458 
    460459      !                                      ! Dynamics 
    461       IF( lk_c1d       )   CALL dyn_dmp_init         ! internal momentum damping 
     460      IF( ln_c1d       )   CALL dyn_dmp_init         ! internal momentum damping 
    462461                           CALL dyn_adv_init         ! advection (vector or flux form) 
    463462                           CALL dyn_vor_init         ! vorticity term including Coriolis 
  • NEMO/branches/2021/ticket2680_C1D_PAPA/src/OFF/dtadyn.F90

    r14310 r15010  
    2121   !!---------------------------------------------------------------------- 
    2222   USE oce             ! ocean dynamics and tracers variables 
    23    USE c1d             ! 1D configuration: lk_c1d 
     23   USE c1d             ! 1D configuration: ln_c1d 
    2424   USE dom_oce         ! ocean domain: variables 
    2525#if defined key_qco  
     
    135135      CALL fld_read( kt, 1, sf_dyn )      !=  read data at kt time step   ==! 
    136136      ! 
    137       IF( l_ldfslp .AND. .NOT.lk_c1d )   CALL  dta_dyn_slp( kt, Kbb, Kmm )    ! Computation of slopes 
     137      IF( l_ldfslp .AND. .NOT.ln_c1d )   CALL  dta_dyn_slp( kt, Kbb, Kmm )    ! Computation of slopes 
    138138      ! 
    139139      ts(:,:,:,jp_tem,Kmm) = sf_dyn(jf_tem)%fnow(:,:,:)  * tmask(:,:,:)    ! temperature 
     
    187187      avs(:,:,:)      = avt(:,:,:) 
    188188      ! 
    189       IF( ln_trabbl .AND. .NOT.lk_c1d ) THEN       ! diffusive Bottom boundary layer param  
     189      IF( ln_trabbl .AND. .NOT.ln_c1d ) THEN       ! diffusive Bottom boundary layer param  
    190190         ahu_bbl(:,:) = sf_dyn(jf_ubl)%fnow(:,:,1) * umask(:,:,1)    ! bbl diffusive coef 
    191191         ahv_bbl(:,:) = sf_dyn(jf_vbl)%fnow(:,:,1) * vmask(:,:,1) 
     
    321321      END DO 
    322322      ! 
    323       IF( l_ldfslp .AND. .NOT.lk_c1d ) THEN                  ! slopes  
     323      IF( l_ldfslp .AND. .NOT.ln_c1d ) THEN                  ! slopes  
    324324         IF( sf_dyn(jf_tem)%ln_tint ) THEN      ! time interpolation 
    325325            ALLOCATE( uslpdta (jpi,jpj,jpk,2), vslpdta (jpi,jpj,jpk,2),    & 
     
    628628            &    / REAL( sf_dyn(jf_tem)%nrec(2,sf_dyn(jf_tem)%naa) - sf_dyn(jf_tem)%nrec(2,sf_dyn(jf_tem)%nbb), wp ) 
    629629         ztintb =  1. - ztinta 
    630          IF( l_ldfslp .AND. .NOT.lk_c1d ) THEN    ! Computes slopes (here avt is used as workspace) 
     630         IF( l_ldfslp .AND. .NOT.ln_c1d ) THEN    ! Computes slopes (here avt is used as workspace) 
    631631            uslp (:,:,:) = ztintb * uslpdta (:,:,:,1)  + ztinta * uslpdta (:,:,:,2)   
    632632            vslp (:,:,:) = ztintb * vslpdta (:,:,:,1)  + ztinta * vslpdta (:,:,:,2)   
     
    640640         CALL compute_slopes( kt, zts, zuslp, zvslp, zwslpi, zwslpj, Kbb, Kmm ) 
    641641         ! 
    642          IF( l_ldfslp .AND. .NOT.lk_c1d ) THEN    ! Computes slopes (here avt is used as workspace) 
     642         IF( l_ldfslp .AND. .NOT.ln_c1d ) THEN    ! Computes slopes (here avt is used as workspace) 
    643643            uslp (:,:,:) = zuslp (:,:,:) 
    644644            vslp (:,:,:) = zvslp (:,:,:) 
     
    665665      !!--------------------------------------------------------------------- 
    666666      ! 
    667       IF( l_ldfslp .AND. .NOT.lk_c1d ) THEN    ! Computes slopes (here avt is used as workspace) 
     667      IF( l_ldfslp .AND. .NOT.ln_c1d ) THEN    ! Computes slopes (here avt is used as workspace) 
    668668         CALL eos    ( pts, rhd, rhop, gdept_0(:,:,:) ) 
    669669         CALL eos_rab( pts, rab_n, Kmm )       ! now local thermal/haline expension ratio at T-points 
  • NEMO/branches/2021/ticket2680_C1D_PAPA/src/OFF/nemogcm.F90

    r14834 r15010  
    348348                           CALL     phy_cst         ! Physical constants 
    349349                           CALL     eos_init        ! Equation of state 
    350       IF( lk_c1d       )   CALL     c1d_init        ! 1D column configuration 
     350      IF( ln_c1d       )   CALL     c1d_init        ! 1D column configuration 
    351351                           CALL     dom_init( Nbb, Nnn, Naa ) ! Domain 
    352352      IF( sn_cfctl%l_prtctl )   & 
  • NEMO/branches/2021/ticket2680_C1D_PAPA/src/SAS/sbcssm.F90

    r14510 r15010  
    1212   !!---------------------------------------------------------------------- 
    1313   USE oce            ! ocean dynamics and tracers variables 
    14    USE c1d            ! 1D configuration: lk_c1d 
     14   USE c1d            ! 1D configuration: ln_c1d 
    1515   USE dom_oce        ! ocean domain: variables 
    1616   USE zdf_oce        ! ocean vertical physics: variables 
  • NEMO/branches/2021/ticket2680_C1D_PAPA/src/TOP/PISCES/P4Z/p4zsms.F90

    r14086 r15010  
    406406 
    407407      IF( cn_cfg == "ORCA" .OR. cn_cfg == "orca") THEN 
    408          IF( .NOT. lk_c1d ) THEN      ! ORCA configuration (not 1D) ! 
     408         IF( .NOT. ln_c1d ) THEN      ! ORCA configuration (not 1D) ! 
    409409            !                                                ! --------------------------- ! 
    410410            ! set total alkalinity, phosphate, nitrate & silicate 
  • NEMO/branches/2021/ticket2680_C1D_PAPA/src/TOP/PISCES/SED/trcdmp_sed.F90

    r14086 r15010  
    133133      IF( trc_dmp_sed_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'trc_dmp_sed_ini: unable to allocate arrays' ) 
    134134      ! 
    135       IF( .NOT.lk_c1d ) THEN 
     135      IF( .NOT.ln_c1d ) THEN 
    136136         !Read in mask from file 
    137137          restosed(:,:,:) = 0.5 / rday 
  • NEMO/branches/2021/ticket2680_C1D_PAPA/src/TOP/TRP/trcdmp.F90

    r14086 r15010  
    199199      END SELECT 
    200200 
    201       IF( .NOT.lk_c1d ) THEN 
     201      IF( .NOT.ln_c1d ) THEN 
    202202         IF( .NOT.ln_tradmp )   & 
    203203            &   CALL ctl_stop( 'passive tracer damping need ln_tradmp to compute damping coef.' ) 
  • NEMO/branches/2021/ticket2680_C1D_PAPA/src/TOP/TRP/trctrp.F90

    r14086 r15010  
    6363      IF( ln_timing )   CALL timing_start('trc_trp') 
    6464      ! 
    65       IF( .NOT. lk_c1d ) THEN 
     65      IF( .NOT. ln_c1d ) THEN 
    6666         ! 
    6767         !                                                         ! Partial top/bottom cell: GRADh( trb )   
Note: See TracChangeset for help on using the changeset viewer.