Changeset 9169 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/LIM_SRC_3/icedyn_rhg_evp.F90

Timestamp:

2017-12-26T17:32:56+01:00 (6 years ago)

Author:

gm

Message:

dev_merge_2017: all SRC: finalize the removal of useless warning when reading namelist_cfg + remove all nn_closea + nn_msh replaced by a logical

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/LIM_SRC_3/icedyn_rhg_evp.F90 (modified) (2 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/LIM_SRC_3/icedyn_rhg_evp.F90

@@ -875 +875 @@
                CALL iom_get( numrir, jpdom_autoglo, 'stress12_i', stress12_i )
             ELSE                                     ! start rheology from rest
-               IF(lwp) WRITE(numout,*) '   ==>>   previous run without rheology, set stresses to 0'
+               IF(lwp) WRITE(numout,*)
+               IF(lwp) WRITE(numout,*) '   ==>>>   previous run without rheology, set stresses to 0'
                stress1_i (:,:) = 0._wp
                stress2_i (:,:) = 0._wp
@@ -881 +882 @@
             ENDIF
          ELSE                                   !* Start from rest
-            IF(lwp) WRITE(numout,*) '   ==>>   start from rest: set stresses to 0'
+            IF(lwp) WRITE(numout,*)
+            IF(lwp) WRITE(numout,*) '   ==>>>   start from rest: set stresses to 0'
             stress1_i (:,:) = 0._wp
             stress2_i (:,:) = 0._wp