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 14789 for NEMO/branches/2021/dev_r13747_HPC-11_mcastril_HPDAonline_DiagGPU/src/OCE/SBC/sbcapr.F90 – NEMO

Ignore:
Timestamp:
2021-05-05T13:18:04+02:00 (3 years ago)
Author:
mcastril
Message:

[2021/HPC-11_mcastril_HPDAonline_DiagGPU] Update externals

Location:
NEMO/branches/2021/dev_r13747_HPC-11_mcastril_HPDAonline_DiagGPU
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2021/dev_r13747_HPC-11_mcastril_HPDAonline_DiagGPU

    • Property svn:externals

      •  

        old new  
        33^/utils/build/mk@HEAD         mk 
        44^/utils/tools@HEAD            tools 
        5 ^/vendors/AGRIF/dev_r12970_AGRIF_CMEMS      ext/AGRIF 
         5^/vendors/AGRIF/dev@HEAD      ext/AGRIF 
        66^/vendors/FCM@HEAD            ext/FCM 
        77^/vendors/IOIPSL@HEAD         ext/IOIPSL 
         8^/vendors/PPR@HEAD            ext/PPR 
        89 
        910# SETTE 
        10 ^/utils/CI/sette@13559        sette 
         11^/utils/CI/sette@14244        sette 

  • NEMO/branches/2021/dev_r13747_HPC-11_mcastril_HPDAonline_DiagGPU/src/OCE/SBC/sbcapr.F90

    r13286 r14789  
    66   !! History :  3.3  !   2010-09  (J. Chanut, C. Bricaud, G. Madec)  Original code 
    77   !!---------------------------------------------------------------------- 
    8     
     8 
    99   !!---------------------------------------------------------------------- 
    10    !!   sbc_apr        : read atmospheric pressure in netcdf files  
     10   !!   sbc_apr        : read atmospheric pressure in netcdf files 
    1111   !!---------------------------------------------------------------------- 
    1212   USE dom_oce         ! ocean space and time domain 
    … …  
    2525   PUBLIC   sbc_apr       ! routine called in sbcmod 
    2626   PUBLIC   sbc_apr_init  ! routine called in sbcmod 
    27     
     27 
    2828   !                                          !!* namsbc_apr namelist (Atmospheric PRessure) * 
    29    LOGICAL, PUBLIC ::   ln_apr_obc = .false.   !: inverse barometer added to OBC ssh data  
     29   LOGICAL, PUBLIC ::   ln_apr_obc = .false.   !: inverse barometer added to OBC ssh data 
    3030   LOGICAL, PUBLIC ::   ln_ref_apr             !: ref. pressure: global mean Patm (F) or a constant (F) 
    3131   REAL(wp)        ::   rn_pref                !  reference atmospheric pressure   [N/m2] 
    … …  
    3434   REAL(wp), ALLOCATABLE, SAVE, PUBLIC, DIMENSION(:,:) ::   ssh_ibb   ! Inverse barometer before sea surface height   [m] 
    3535   REAL(wp), ALLOCATABLE, SAVE, PUBLIC, DIMENSION(:,:) ::   apr       ! atmospheric pressure at kt                 [N/m2] 
    36     
     36 
    3737   REAL(wp) ::   tarea                ! whole domain mean masked ocean surface 
    3838   REAL(wp) ::   r1_grau              ! = 1.e0 / (grav * rho0) 
    39     
     39 
    4040   TYPE(FLD), ALLOCATABLE, DIMENSION(:) ::   sf_apr   ! structure of input fields (file informations, fields read) 
    4141 
    … …  
    5454      !! 
    5555      !! ** Method  : - Read namelist namsbc_apr 
    56       !!              - Read Patm fields in netcdf files  
     56      !!              - Read Patm fields in netcdf files 
    5757      !!              - Compute reference atmospheric pressure 
    5858      !!              - Compute inverse barometer ssh 
    … …  
    6060      !!                ssh_ib   : inverse barometer ssh at kt 
    6161      !!--------------------------------------------------------------------- 
    62       INTEGER            ::   ierror  ! local integer  
     62      INTEGER            ::   ierror  ! local integer 
    6363      INTEGER            ::   ios     ! Local integer output status for namelist read 
    6464      !! 
    6565      CHARACTER(len=100) ::  cn_dir   ! Root directory for location of ssr files 
    6666      TYPE(FLD_N)        ::  sn_apr   ! informations about the fields to be read 
    67       LOGICAL            ::  lrxios   ! read restart using XIOS? 
    6867      !! 
    6968      NAMELIST/namsbc_apr/ cn_dir, sn_apr, ln_ref_apr, rn_pref, ln_apr_obc 
    … …  
    104103         IF(lwp) WRITE(numout,*) '         Inverse barometer added to OBC ssh data' 
    105104      ENDIF 
    106 !jc: stop below should rather be a warning  
     105!jc: stop below should rather be a warning 
    107106      IF( ln_apr_obc .AND. .NOT.ln_apr_dyn   )   & 
    108107            CALL ctl_warn( 'sbc_apr: use inverse barometer ssh at open boundary ONLY requires ln_apr_dyn=T' ) 
    109108      ! 
    110       IF( lwxios ) THEN 
    111          CALL iom_set_rstw_var_active('ssh_ibb') 
    112       ENDIF 
    113109   END SUBROUTINE sbc_apr_init 
    114110 
    … …  
    120116      !! 
    121117      !! ** Method  : - Read namelist namsbc_apr 
    122       !!              - Read Patm fields in netcdf files  
     118      !!              - Read Patm fields in netcdf files 
    123119      !!              - Compute reference atmospheric pressure 
    124120      !!              - Compute inverse barometer ssh 
    … …  
    152148         !                                      ! ---------------------------------------- ! 
    153149         !                                            !* Restart: read in restart file 
    154          IF( ln_rstart .AND. iom_varid( numror, 'ssh_ibb', ldstop = .FALSE. ) > 0 ) THEN  
     150         IF( ln_rstart .AND. .NOT.l_1st_euler ) THEN 
    155151            IF(lwp) WRITE(numout,*) 'sbc_apr:   ssh_ibb read in the restart file' 
    156             CALL iom_get( numror, jpdom_auto, 'ssh_ibb', ssh_ibb, ldxios = lrxios )   ! before inv. barometer ssh 
     152            CALL iom_get( numror, jpdom_auto, 'ssh_ibb', ssh_ibb )   ! before inv. barometer ssh 
    157153            ! 
    158154         ELSE                                         !* no restart: set from nit000 values 
    … …  
    167163         IF(lwp) WRITE(numout,*) 'sbc_apr : ssh_ib written in ocean restart file at it= ', kt,' date= ', ndastp 
    168164         IF(lwp) WRITE(numout,*) '~~~~' 
    169          IF( lwxios ) CALL iom_swap(      cwxios_context          ) 
    170          CALL iom_rstput( kt, nitrst, numrow, 'ssh_ibb' , ssh_ib, ldxios = lwxios ) 
    171          IF( lwxios ) CALL iom_swap(      cxios_context          ) 
     165         CALL iom_rstput( kt, nitrst, numrow, 'ssh_ibb' , ssh_ib ) 
    172166      ENDIF 
    173167      ! 
    174168   END SUBROUTINE sbc_apr 
    175        
     169 
    176170   !!====================================================================== 
    177171END MODULE sbcapr 
Note: See TracChangeset for help on using the changeset viewer.