Ticket #1738: sbcmod_tam.F90.diff

sbcmod_tam.F90

@@ -89 +89 @@
       !!----------------------------------------------------------------------
       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
          lfirst = .FALSE.