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

Changeset 3795


Ignore:
Timestamp:
2013-02-11T10:29:31+01:00 (11 years ago)
Author:
cbricaud
Message:

replace rpref by rn_pref and e1t(:,:) * e2t(:,:) by e1e2t in sbcapr and put ln_apr_obc in namelist in CONFIG; see ticket 905

Location:
branches/2012/dev_MERGE_2012
Files:
13 edited

Legend:

Unmodified
Added
Removed

  • branches/2012/dev_MERGE_2012/DOC/TexFiles/Chapters/Chap_SBC.tex

    r3699 r3795  
    756756as inverse barometer sea surface height is usually removed from these date prior to their distribution. 
    757757 
     758When using time-splitting and BDY package for open boundaries conditions, the equivalent  
     759inverse barometer sea surface height $\eta_{ib}$ can be added to BDY ssh data:  
     760\np{ln\_apr\_obc}  might be set to true. 
     761 
    758762% ================================================================ 
    759763%        Tidal Potential 

  • branches/2012/dev_MERGE_2012/DOC/TexFiles/Namelist/namsbc_apr

    r2540 r3795  
    88   cn_dir      = './'      !  root directory for the location of the bulk files 
    99   ln_ref_apr  = .false.   !  ref. pressure: global mean Patm (T) or a constant (F) 
     10   ln_apr_obc  = .false.   !  inverse barometer added to OBC ssh data 
    1011/ 

  • branches/2012/dev_MERGE_2012/NEMOGCM/CONFIG/AMM12/EXP00/namelist

    r3764 r3795  
    304304   sn_apr      = 'patm'    ,         -1        ,'somslpre',    .true.      , .true.  , 'yearly'  ,  ''      ,   '' 
    305305 
    306    cn_dir      = './'      !  root directory for the location of the bulk files 
    307    ln_ref_apr  = .false.   !  ref. pressure: global mean Patm (T) or a constant (F) 
     306   cn_dir      = './'       !  root directory for the location of the bulk files 
     307   rn_pref     = 101000._wp !  reference atmospheric pressure   [N/m2]/ 
     308   ln_ref_apr  = .false.    !  ref. pressure: global mean Patm (T) or a constant (F) 
     309   ln_apr_obc  = .false.    !  inverse barometer added to OBC ssh data 
    308310/ 
    309311!----------------------------------------------------------------------- 

  • branches/2012/dev_MERGE_2012/NEMOGCM/CONFIG/GYRE/EXP00/namelist

    r3764 r3795  
    305305   sn_apr      = 'patm'    ,         -1        ,'somslpre',    .true.      , .true.  , 'yearly'  ,  ''      ,   '' 
    306306 
    307    cn_dir      = './'      !  root directory for the location of the bulk files 
    308    ln_ref_apr  = .false.   !  ref. pressure: global mean Patm (T) or a constant (F) 
     307   cn_dir      = './'       !  root directory for the location of the bulk files 
     308   rn_pref     = 101000._wp !  reference atmospheric pressure   [N/m2]/ 
     309   ln_ref_apr  = .false.    !  ref. pressure: global mean Patm (T) or a constant (F) 
     310   ln_apr_obc  = .false.    !  inverse barometer added to OBC ssh data 
    309311/ 
    310312!----------------------------------------------------------------------- 

  • branches/2012/dev_MERGE_2012/NEMOGCM/CONFIG/GYRE_BFM/EXP00/namelist

    r3764 r3795  
    286286   sn_apr      = 'patm'    ,         -1        ,'somslpre',    .true.      , .true.  , 'yearly'  ,  ''      ,   '' 
    287287 
    288    cn_dir      = './'      !  root directory for the location of the bulk files 
    289    ln_ref_apr  = .false.   !  ref. pressure: global mean Patm (T) or a constant (F) 
     288   cn_dir      = './'       !  root directory for the location of the bulk files 
     289   rn_pref     = 101000._wp !  reference atmospheric pressure   [N/m2]/ 
     290   ln_ref_apr  = .false.    !  ref. pressure: global mean Patm (T) or a constant (F) 
     291   ln_apr_obc  = .false.    !  inverse barometer added to OBC ssh data 
    290292/ 
    291293!----------------------------------------------------------------------- 

  • branches/2012/dev_MERGE_2012/NEMOGCM/CONFIG/ORCA2_LIM/EXP00/1_namelist

    r3764 r3795  
    279279   sn_apr      = 'patm'    ,         -1        ,'somslpre',    .true.      , .true.  , 'yearly'  ,  ''      ,   '' 
    280280 
    281    cn_dir      = './'      !  root directory for the location of the bulk files 
    282    ln_ref_apr  = .false.   !  ref. pressure: global mean Patm (T) or a constant (F) 
     281   cn_dir      = './'       !  root directory for the location of the bulk files 
     282   rn_pref     = 101000._wp !  reference atmospheric pressure   [N/m2]/ 
     283   ln_ref_apr  = .false.    !  ref. pressure: global mean Patm (T) or a constant (F) 
     284   ln_apr_obc  = .false.    !  inverse barometer added to OBC ssh data 
    283285/ 
    284286!----------------------------------------------------------------------- 

  • branches/2012/dev_MERGE_2012/NEMOGCM/CONFIG/ORCA2_LIM/EXP00/namelist

    r3764 r3795  
    305305   sn_apr      = 'patm'    ,         -1        ,'somslpre',    .true.      , .true.  , 'yearly'  ,  ''      ,   '' 
    306306 
    307    cn_dir      = './'      !  root directory for the location of the bulk files 
    308    ln_ref_apr  = .false.   !  ref. pressure: global mean Patm (T) or a constant (F) 
     307   cn_dir      = './'       !  root directory for the location of the bulk files 
     308   rn_pref     = 101000._wp !  reference atmospheric pressure   [N/m2]/ 
     309   ln_ref_apr  = .false.    !  ref. pressure: global mean Patm (T) or a constant (F) 
     310   ln_apr_obc  = .false.    !  inverse barometer added to OBC ssh data 
    309311/ 
    310312!----------------------------------------------------------------------- 

  • branches/2012/dev_MERGE_2012/NEMOGCM/CONFIG/ORCA2_LIM_CFC_C14b/EXP00/1_namelist

    r3764 r3795  
    266266   sn_apr      = 'patm'    ,         -1        ,'somslpre',    .true.      , .true.  , 'yearly'  ,  ''      ,   '' 
    267267 
    268    cn_dir      = './'      !  root directory for the location of the bulk files 
    269    ln_ref_apr  = .false.   !  ref. pressure: global mean Patm (T) or a constant (F) 
     268   cn_dir      = './'       !  root directory for the location of the bulk files 
     269   rn_pref     = 101000._wp !  reference atmospheric pressure   [N/m2]/ 
     270   ln_ref_apr  = .false.    !  ref. pressure: global mean Patm (T) or a constant (F) 
     271   ln_apr_obc  = .false.    !  inverse barometer added to OBC ssh data 
    270272/ 
    271273!----------------------------------------------------------------------- 

  • branches/2012/dev_MERGE_2012/NEMOGCM/CONFIG/ORCA2_LIM_CFC_C14b/EXP00/namelist

    r3764 r3795  
    287287   sn_apr      = 'patm'    ,         -1        ,'somslpre',    .true.      , .true.  , 'yearly'  ,  ''      ,   '' 
    288288 
    289    cn_dir      = './'      !  root directory for the location of the bulk files 
    290    ln_ref_apr  = .false.   !  ref. pressure: global mean Patm (T) or a constant (F) 
     289   cn_dir      = './'       !  root directory for the location of the bulk files 
     290   rn_pref     = 101000._wp !  reference atmospheric pressure   [N/m2]/ 
     291   ln_ref_apr  = .false.    !  ref. pressure: global mean Patm (T) or a constant (F) 
     292   ln_apr_obc  = .false.    !  inverse barometer added to OBC ssh data 
    291293/ 
    292294!----------------------------------------------------------------------- 

  • branches/2012/dev_MERGE_2012/NEMOGCM/CONFIG/ORCA2_OFF_PISCES/EXP00/namelist

    r3764 r3795  
    303303   sn_apr      = 'patm'    ,         -1        ,'somslpre',    .true.      , .true.  , 'yearly'  ,  ''      ,   '' 
    304304 
    305    cn_dir      = './'      !  root directory for the location of the bulk files 
    306    ln_ref_apr  = .false.   !  ref. pressure: global mean Patm (T) or a constant (F) 
     305   cn_dir      = './'       !  root directory for the location of the bulk files 
     306   rn_pref     = 101000._wp !  reference atmospheric pressure   [N/m2]/ 
     307   ln_ref_apr  = .false.    !  ref. pressure: global mean Patm (T) or a constant (F) 
     308   ln_apr_obc  = .false.    !  inverse barometer added to OBC ssh data 
    307309/ 
    308310!----------------------------------------------------------------------- 

  • branches/2012/dev_MERGE_2012/NEMOGCM/CONFIG/ORCA2_SAS_LIM/EXP00/1_namelist

    r3764 r3795  
    279279   sn_apr      = 'patm'    ,         -1        ,'somslpre',    .true.      , .true.  , 'yearly'  ,  ''      ,   '' 
    280280 
    281    cn_dir      = './'      !  root directory for the location of the bulk files 
    282    ln_ref_apr  = .false.   !  ref. pressure: global mean Patm (T) or a constant (F) 
     281   cn_dir      = './'       !  root directory for the location of the bulk files 
     282   rn_pref     = 101000._wp !  reference atmospheric pressure   [N/m2]/ 
     283   ln_ref_apr  = .false.    !  ref. pressure: global mean Patm (T) or a constant (F) 
     284   ln_apr_obc  = .false.    !  inverse barometer added to OBC ssh data 
    283285/ 
    284286!----------------------------------------------------------------------- 

  • branches/2012/dev_MERGE_2012/NEMOGCM/CONFIG/ORCA2_SAS_LIM/EXP00/namelist

    r3764 r3795  
    302302   sn_apr      = 'patm'    ,         -1        ,'somslpre',    .true.      , .true.  , 'yearly'  ,  ''      ,   '' 
    303303 
    304    cn_dir      = './'      !  root directory for the location of the bulk files 
    305    ln_ref_apr  = .false.   !  ref. pressure: global mean Patm (T) or a constant (F) 
     304   cn_dir      = './'       !  root directory for the location of the bulk files 
     305   rn_pref     = 101000._wp !  reference atmospheric pressure   [N/m2]/ 
     306   ln_ref_apr  = .false.    !  ref. pressure: global mean Patm (T) or a constant (F) 
     307   ln_apr_obc  = .false.    !  inverse barometer added to OBC ssh data 
    306308/ 
    307309!----------------------------------------------------------------------- 

  • branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/SBC/sbcapr.F90

    r3680 r3795  
    2626   PUBLIC   sbc_apr    ! routine called in sbcmod 
    2727    
    28    !                                         !!* namsbc_apr namelist (Atmospheric PRessure) * 
    29    LOGICAL, PUBLIC ::   ln_apr_obc = .FALSE.  !: inverse barometer added to OBC ssh data  
    30    LOGICAL, PUBLIC ::   ln_ref_apr = .FALSE.  !: ref. pressure: global mean Patm (F) or a constant (F) 
     28   !                                              !!* namsbc_apr namelist (Atmospheric PRessure) * 
     29   LOGICAL, PUBLIC ::   ln_apr_obc = .FALSE.      !: inverse barometer added to OBC ssh data  
     30   LOGICAL, PUBLIC ::   ln_ref_apr = .FALSE.      !: ref. pressure: global mean Patm (F) or a constant (F) 
     31   REAL(wp)        ::   rn_pref    = 101000._wp   !  reference atmospheric pressure   [N/m2] 
    3132 
    3233   REAL(wp), ALLOCATABLE, SAVE, PUBLIC, DIMENSION(:,:) ::   ssh_ib    ! Inverse barometer now    sea surface height   [m] 
    … …  
    3435   REAL(wp), ALLOCATABLE, SAVE, PUBLIC, DIMENSION(:,:) ::   apr       ! atmospheric pressure at kt                 [N/m2] 
    3536    
    36    REAL(wp) ::   rpref = 101000._wp   ! reference atmospheric pressure          [N/m2] 
    3737   REAL(wp) ::   tarea                ! whole domain mean masked ocean surface 
    3838   REAL(wp) ::   r1_grau              ! = 1.e0 / (grav * rau0) 
    … …  
    6969      TYPE(FLD_N)        ::  sn_apr   ! informations about the fields to be read 
    7070      !! 
    71       NAMELIST/namsbc_apr/ cn_dir, sn_apr, ln_ref_apr, rpref, ln_apr_obc 
     71      NAMELIST/namsbc_apr/ cn_dir, sn_apr, ln_ref_apr, rn_pref, ln_apr_obc 
    7272      !!---------------------------------------------------------------------- 
    7373      ! 
    … …  
    102102         ! 
    103103         IF( ln_ref_apr ) THEN                        !* Compute whole inner domain mean masked ocean surface 
    104             tarea = glob_sum( e1t(:,:) * e2t(:,:) ) 
     104            tarea = glob_sum( e1e2t(:,:) ) 
    105105            IF(lwp) WRITE(numout,*) '         Variable ref. Patm computed over a ocean surface of ', tarea*1e-6, 'km2' 
    106106         ELSE 
    107             IF(lwp) WRITE(numout,*) '         Reference Patm used : ', rpref, ' N/m2' 
     107            IF(lwp) WRITE(numout,*) '         Reference Patm used : ', rn_pref, ' N/m2' 
    108108         ENDIF 
    109109         ! 
    … …  
    129129         ! 
    130130         !                                                  !* update the reference atmospheric pressure (if necessary) 
    131          IF( ln_ref_apr )   rpref = glob_sum( sf_apr(1)%fnow(:,:,1) * e1t(:,:) * e2t(:,:) ) / tarea 
     131         IF( ln_ref_apr )   rn_pref = glob_sum( sf_apr(1)%fnow(:,:,1) * e1e2t(:,:) ) / tarea 
    132132         ! 
    133133         !                                                  !* Patm related forcing at kt 
    134          ssh_ib(:,:) = - ( sf_apr(1)%fnow(:,:,1) - rpref ) * r1_grau    ! equivalent ssh (inverse barometer) 
     134         ssh_ib(:,:) = - ( sf_apr(1)%fnow(:,:,1) - rn_pref ) * r1_grau    ! equivalent ssh (inverse barometer) 
    135135         apr   (:,:) =     sf_apr(1)%fnow(:,:,1)                        ! atmospheric pressure 
    136136         ! 
Note: See TracChangeset for help on using the changeset viewer.