Changeset 14072 for NEMO/trunk/src/OCE/SBC/sbcapr.F90

Timestamp:

2020-12-04T08:48:38+01:00 (3 years ago)

Author:

laurent

Message:

Merging branch "2020/dev_r13648_ASINTER-04_laurent_bulk_ice", ticket #2369

File:

• NEMO/trunk/src/OCE/SBC/sbcapr.F90 (modified) (9 diffs)

NEMO/trunk/src/OCE/SBC/sbcapr.F90

@@ -6 +6 @@
    !! History :  3.3  !   2010-09  (J. Chanut, C. Bricaud, G. Madec)  Original code
    !!----------------------------------------------------------------------
-   
+
    !!----------------------------------------------------------------------
-   !!   sbc_apr        : read atmospheric pressure in netcdf files 
+   !!   sbc_apr        : read atmospheric pressure in netcdf files
    !!----------------------------------------------------------------------
    USE dom_oce         ! ocean space and time domain
@@ -25 +25 @@
    PUBLIC   sbc_apr       ! routine called in sbcmod
    PUBLIC   sbc_apr_init  ! routine called in sbcmod
-   
+
    !                                          !!* namsbc_apr namelist (Atmospheric PRessure) *
-   LOGICAL, PUBLIC ::   ln_apr_obc = .false.   !: inverse barometer added to OBC ssh data 
+   LOGICAL, PUBLIC ::   ln_apr_obc = .false.   !: inverse barometer added to OBC ssh data
    LOGICAL, PUBLIC ::   ln_ref_apr             !: ref. pressure: global mean Patm (F) or a constant (F)
    REAL(wp)        ::   rn_pref                !  reference atmospheric pressure   [N/m2]
@@ -34 +34 @@
    REAL(wp), ALLOCATABLE, SAVE, PUBLIC, DIMENSION(:,:) ::   ssh_ibb   ! Inverse barometer before sea surface height   [m]
    REAL(wp), ALLOCATABLE, SAVE, PUBLIC, DIMENSION(:,:) ::   apr       ! atmospheric pressure at kt                 [N/m2]
-   
+
    REAL(wp) ::   tarea                ! whole domain mean masked ocean surface
    REAL(wp) ::   r1_grau              ! = 1.e0 / (grav * rho0)
-   
+
    TYPE(FLD), ALLOCATABLE, DIMENSION(:) ::   sf_apr   ! structure of input fields (file informations, fields read)
 
@@ -54 +54 @@
       !!
       !! ** Method  : - Read namelist namsbc_apr
-      !!              - Read Patm fields in netcdf files 
+      !!              - Read Patm fields in netcdf files
       !!              - Compute reference atmospheric pressure
       !!              - Compute inverse barometer ssh
@@ -60 +60 @@
       !!                ssh_ib   : inverse barometer ssh at kt
       !!---------------------------------------------------------------------
-      INTEGER            ::   ierror  ! local integer 
+      INTEGER            ::   ierror  ! local integer
       INTEGER            ::   ios     ! Local integer output status for namelist read
       !!
@@ -103 +103 @@
          IF(lwp) WRITE(numout,*) '         Inverse barometer added to OBC ssh data'
       ENDIF
-!jc: stop below should rather be a warning 
+!jc: stop below should rather be a warning
       IF( ln_apr_obc .AND. .NOT.ln_apr_dyn   )   &
             CALL ctl_warn( 'sbc_apr: use inverse barometer ssh at open boundary ONLY requires ln_apr_dyn=T' )
@@ -116 +116 @@
       !!
       !! ** Method  : - Read namelist namsbc_apr
-      !!              - Read Patm fields in netcdf files 
+      !!              - Read Patm fields in netcdf files
       !!              - Compute reference atmospheric pressure
       !!              - Compute inverse barometer ssh
@@ -148 +148 @@
          !                                      ! ---------------------------------------- !
          !                                            !* Restart: read in restart file
-         IF( ln_rstart .AND. .NOT.l_1st_euler ) THEN 
+         IF( ln_rstart .AND. .NOT.l_1st_euler ) THEN
             IF(lwp) WRITE(numout,*) 'sbc_apr:   ssh_ibb read in the restart file'
             CALL iom_get( numror, jpdom_auto, 'ssh_ibb', ssh_ibb )   ! before inv. barometer ssh
@@ -167 +167 @@
       !
    END SUBROUTINE sbc_apr
-      
+
    !!======================================================================
 END MODULE sbcapr