Changeset 7163 for branches/2016/dev_r6711_SIMPLIF_6_aerobulk/NEMOGCM/NEMO/OPA_SRC/DYN/wet_dry.F90

Timestamp:

2016-11-01T15:26:15+01:00 (7 years ago)

Author:

gm

Message:

#1751 - branch SIMPLIF_6_aerobulk: update option control in sbcmod + uniformization of print in ocean_output (many module involved)

File:

• branches/2016/dev_r6711_SIMPLIF_6_aerobulk/NEMOGCM/NEMO/OPA_SRC/DYN/wet_dry.F90 (modified) (6 diffs)

branches/2016/dev_r6711_SIMPLIF_6_aerobulk/NEMOGCM/NEMO/OPA_SRC/DYN/wet_dry.F90

@@ -1 @@
-
 MODULE wet_dry
    !!==============================================================================
@@ -77 +76 @@
          WRITE(numout,*)
          WRITE(numout,*) 'wad_init : Wetting and drying initialization through namelist read'
-         WRITE(numout,*) '~~~~~~~ '
+         WRITE(numout,*) '~~~~~~~~'
          WRITE(numout,*) '   Namelist namwad'
          WRITE(numout,*) '      Logical activation                 ln_wd      = ', ln_wd
@@ -116 +115 @@
       REAL(wp), POINTER,  DIMENSION(:,:) ::   zflxu,  zflxv            ! local 2D workspace
       REAL(wp), POINTER,  DIMENSION(:,:) ::   zflxu1, zflxv1           ! local 2D workspace
-
       !!----------------------------------------------------------------------
       !
@@ -246 +244 @@
    END SUBROUTINE wad_lmt
 
+
    SUBROUTINE wad_lmt_bt( zflxu, zflxv, sshn_e, zssh_frc, rdtbt )
       !!----------------------------------------------------------------------
@@ -269 +268 @@
       REAL(wp), POINTER,  DIMENSION(:,:) ::   zflxp,  zflxn            ! local 2D workspace
       REAL(wp), POINTER,  DIMENSION(:,:) ::   zflxu1, zflxv1           ! local 2D workspace
-
       !!----------------------------------------------------------------------
       !
@@ -389 +387 @@
 
       IF( nn_timing == 1 )  CALL timing_stop('wad_lmt')
+      !
    END SUBROUTINE wad_lmt_bt
+
+   !!==============================================================================
 END MODULE wet_dry