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 8948 – NEMO

Changeset 8948


Ignore:
Timestamp:
2017-12-08T11:23:34+01:00 (7 years ago)
Author:
clem
Message:

forgotten commits. All sette tests passed except isomip as expected

Location:
branches/2017/dev_CNRS_2017/NEMOGCM
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_CNRS_2017/NEMOGCM/CONFIG/SHARED/namelist_ref

    r8933 r8948  
    187187   ln_cpl      = .false.   !  atmosphere coupled   formulation          ( requires key_oasis3 ) 
    188188   ln_mixcpl   = .false.   !  forced-coupled mixed formulation          ( requires key_oasis3 ) 
    189    ln_meto_cpl = .false.   !  Met-Office coupling specifics 
    190189   nn_components = 0       !  configuration of the opa-sas OASIS coupling 
    191190                           !  =0 no opa-sas OASIS coupling: default single executable config. 
  • branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/LIM_SRC_3/icerst.F90

    r8933 r8948  
    1919   USE ice            ! sea-ice variables 
    2020   USE dom_oce        ! ocean domain 
    21    USE sbc_oce , ONLY : nn_fsbc, ln_meto_cpl 
     21   USE sbc_oce , ONLY : nn_fsbc, ln_cpl 
    2222   USE icectl 
    2323   ! 
     
    146146      CALL iom_rstput( iter, nitrst, numriw, 'u_ice', u_ice ) ! u_ice 
    147147      CALL iom_rstput( iter, nitrst, numriw, 'v_ice', v_ice ) ! v_ice 
    148       ! fields needed for Jules coupling 
    149       IF (ln_meto_cpl) THEN 
     148      ! fields needed for Met Office (Jules) coupling 
     149      IF( ln_cpl ) THEN 
    150150         CALL iom_rstput( iter, nitrst, numriw, 'cnd_ice', cnd_ice ) 
    151151         CALL iom_rstput( iter, nitrst, numriw, 't1_ice' , t1_ice  ) 
     
    233233      CALL iom_get( numrir, jpdom_autoglo, 'u_ice', u_ice ) 
    234234      CALL iom_get( numrir, jpdom_autoglo, 'v_ice', v_ice ) 
    235       ! fields needed for Jules coupling 
    236       IF (ln_meto_cpl) THEN 
     235      ! fields needed for Met Office (Jules) coupling 
     236      IF( ln_cpl ) THEN 
    237237         CALL iom_get( numrir, jpdom_autoglo, 'cnd_ice', cnd_ice ) 
    238238         CALL iom_get( numrir, jpdom_autoglo, 't1_ice' , t1_ice  ) 
  • branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_oce.F90

    r8934 r8948  
    4141   LOGICAL , PUBLIC ::   ln_cpl         !: ocean-atmosphere coupled formulation 
    4242   LOGICAL , PUBLIC ::   ln_mixcpl      !: ocean-atmosphere forced-coupled mixed formulation 
    43    LOGICAL , PUBLIC ::   ln_meto_cpl    !: Met Office coupling formulation, with surface exchange carried out in atmosphere 
    4443   LOGICAL , PUBLIC ::   ln_dm2dc       !: Daily mean to Diurnal Cycle short wave (qsr) 
    4544   LOGICAL , PUBLIC ::   ln_rnf         !: runoffs / runoff mouths 
  • branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r8939 r8948  
    518518      IF( TRIM( sn_rcv_dqnsdt%cldes ) == 'coupled' )   srcv(jpr_dqnsdt)%laction = .TRUE. 
    519519      ! 
    520       ! non solar sensitivity mandatory for LIM ice model 
    521       IF (.NOT. ln_meto_cpl) THEN 
    522          IF( TRIM( sn_rcv_dqnsdt%cldes ) == 'none' .AND. k_ice /= 0 .AND. k_ice /= 3 .AND. nn_components /= jp_iam_sas )  & 
    523             &   CALL ctl_stop( 'sbc_cpl_init: sn_rcv_dqnsdt%cldes must be coupled in namsbc_cpl namelist' ) 
    524       ENDIF 
    525  
    526520      ! non solar sensitivity mandatory for mixed oce-ice solar radiation coupling technique 
    527521      IF( TRIM( sn_rcv_dqnsdt%cldes ) == 'none' .AND. TRIM( sn_rcv_qns%cldes ) == 'mixed oce-ice' )  & 
     
    20562050 
    20572051#if defined key_lim3       
    2058       IF( ln_meto_cpl ) THEN 
    2059          !                                                   ! ========================= ! 
    2060          SELECT CASE( TRIM( sn_rcv_iceflx%cldes ) )          !  ice topmelt and botmelt  ! 
    2061          !                                                   ! ========================= ! 
    2062          CASE ('coupled') 
    2063             qml_ice(:,:,:) = frcv(jpr_topm)%z3(:,:,:) * a_i(:,:,:) 
    2064             qcn_ice(:,:,:) = frcv(jpr_botm)%z3(:,:,:) * a_i(:,:,:) 
    2065          END SELECT 
    2066       ENDIF 
    2067  
     2052      !                                                      ! ========================= ! 
     2053      SELECT CASE( TRIM( sn_rcv_iceflx%cldes ) )             !  ice topmelt and botmelt  ! 
     2054      !                                                      ! ========================= ! 
     2055      CASE ('coupled') 
     2056         qml_ice(:,:,:) = frcv(jpr_topm)%z3(:,:,:) * a_i(:,:,:) 
     2057         qcn_ice(:,:,:) = frcv(jpr_botm)%z3(:,:,:) * a_i(:,:,:) 
     2058      END SELECT 
     2059      ! 
    20682060      !                                                      ! ========================= ! 
    20692061      !                                                      !      Transmitted Qsr      !   [W/m2] 
  • branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

    r8933 r8948  
    9292      NAMELIST/namsbc/ nn_fsbc  ,                                                    & 
    9393         &             ln_usr   , ln_flx   , ln_blk       ,                          & 
    94          &             ln_cpl   , ln_mixcpl, ln_meto_cpl  , nn_components,           & 
     94         &             ln_cpl   , ln_mixcpl, nn_components,                          & 
    9595         &             nn_ice   , ln_ice_embd,                                       & 
    9696         &             ln_traqsr, ln_dm2dc ,                                         & 
     
    138138         WRITE(numout,*) '         mixed forced-coupled     formulation       ln_mixcpl     = ', ln_mixcpl 
    139139!!gm  lk_oasis is controlled by key_oasis3  ===>>>  It shoud be removed from the namelist  
    140          WRITE(numout,*) '         Met Office coupling specifics              ln_meto_cpl   = ', ln_meto_cpl 
    141140         WRITE(numout,*) '         OASIS coupling (with atm or sas)           lk_oasis      = ', lk_oasis 
    142141         WRITE(numout,*) '         components of your executable              nn_components = ', nn_components 
Note: See TracChangeset for help on using the changeset viewer.