Changeset 9284 for branches/UKMO/dev_r5518_GO6_package_05sprecip/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90

Timestamp:

2018-01-25T16:27:28+01:00 (6 years ago)

Author:

anaguiar

Message:

Moving default value of rn_sfac to the if statement where reading namsbc_core - or else parameter is wrongly reset each time-step

File:

• branches/UKMO/dev_r5518_GO6_package_05sprecip/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_GO6_package_05sprecip/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90

@@ -155 +155 @@
       !!---------------------------------------------------------------------
       !
-      rn_sfac = 1._wp       ! Default to one if missing from namelist 
       !                                         ! ====================== !
       IF( kt == nit000 ) THEN                   !  First call kt=nit000  !
          !                                      ! ====================== !
          !
+         rn_sfac = 1._wp       ! Default to one if missing from namelist 
          REWIND( numnam_ref )              ! Namelist namsbc_core in reference namelist : CORE bulk parameters
          READ  ( numnam_ref, namsbc_core, IOSTAT = ios, ERR = 901)