Changeset 11806 for NEMO/branches

Timestamp:

2019-10-25T17:43:44+02:00 (4 years ago)

Author:

smueller

Message:

Enabling of the selection of the flux formulation as surface boundary condition (ln_flx set to .TRUE. in namelist namsbc) and elimination of the use of an unassigned variable (variable nsbc of module sbcmod_tam) in NEMOTAM (application of the patch attached to ticket #1738)

File:

• NEMO/branches/NERC/dev_release-3.4_NEMOTAM_consolidated/NEMOGCM/NEMO/OPATAM_SRC/SBC/sbcmod_tam.F90 (modified) (1 diff)

NEMO/branches/NERC/dev_release-3.4_NEMOTAM_consolidated/NEMOGCM/NEMO/OPATAM_SRC/SBC/sbcmod_tam.F90

@@ -90 +90 @@
       IF (lfirst) THEN
 
+         nsbc = 0
+         IF (ln_flx) THEN
+            nsbc = 2
+            IF (lwp) WRITE(numout, *) 'sbc_init_tam: flux formulation'
+         ELSE
+            IF (lwp) WRITE(numout, *) 'sbc_init_tam: analytical SBC formulation '// &
+                 &                    '              of GYRE configuration'
+         ENDIF
          !CALL sbc_init
          IF( nn_ice == 0  )   fr_i_tl(:,:) = 0.e0       ! no ice in the domain, ice fraction is always zero