Changeset 14072 for NEMO/trunk/src/OCE/SBC/sbcssm.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/sbcssm.F90 (modified) (6 diffs)

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

@@ -10 +10 @@
 
    !!----------------------------------------------------------------------
-   !!   sbc_ssm       : calculate sea surface mean currents, temperature,  
+   !!   sbc_ssm       : calculate sea surface mean currents, temperature,
    !!                   and salinity over nn_fsbc time-step
    !!----------------------------------------------------------------------
@@ -31 +31 @@
 
    LOGICAL, SAVE ::   l_ssm_mean = .FALSE.   ! keep track of whether means have been read from restart file
-   
+
 #  include "domzgr_substitute.h90"
    !!----------------------------------------------------------------------
@@ -43 +43 @@
       !!---------------------------------------------------------------------
       !!                     ***  ROUTINE sbc_oce  ***
-      !!                     
+      !!
       !! ** Purpose :   provide ocean surface variable to sea-surface boundary
-      !!                condition computation 
-      !!                
-      !! ** Method  :   compute mean surface velocity (2 components at U and 
+      !!                condition computation
+      !!
+      !! ** Method  :   compute mean surface velocity (2 components at U and
       !!      V-points) [m/s], temperature [Celsius] and salinity [psu] over
       !!      the periode (kt - nn_fsbc) to kt
@@ -199 +199 @@
          !
       ELSE
-         !               
+         !
          IF(lwp) WRITE(numout,*)
          IF(lwp) WRITE(numout,*) 'sbc_ssm_init : sea surface mean fields'
@@ -221 +221 @@
             !
             IF( zf_sbc /= REAL( nn_fsbc, wp ) ) THEN      ! nn_fsbc has changed between 2 runs
-               IF(lwp) WRITE(numout,*) '   restart with a change in the frequency of mean from ', zf_sbc, ' to ', nn_fsbc 
-               zcoef = REAL( nn_fsbc - 1, wp ) / zf_sbc 
-               ssu_m(:,:) = zcoef * ssu_m(:,:) 
+               IF(lwp) WRITE(numout,*) '   restart with a change in the frequency of mean from ', zf_sbc, ' to ', nn_fsbc
+               zcoef = REAL( nn_fsbc - 1, wp ) / zf_sbc
+               ssu_m(:,:) = zcoef * ssu_m(:,:)
                ssv_m(:,:) = zcoef * ssv_m(:,:)
                sst_m(:,:) = zcoef * sst_m(:,:)
@@ -251 +251 @@
       ENDIF
       !
-      IF( .NOT. ln_traqsr )   fraqsr_1lev(:,:) = 1._wp   ! default definition: qsr 100% in the fisrt level 
+      IF( .NOT. ln_traqsr )   fraqsr_1lev(:,:) = 1._wp   ! default definition: qsr 100% in the fisrt level
       !
    END SUBROUTINE sbc_ssm_init