Changeset 3614 for branches/2012/dev_NOC_2012_rev3555/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssm.F90

Timestamp:

2012-11-20T16:19:12+01:00 (11 years ago)

Author:

acc

Message:

Branch dev_NOC_2012_r3555. #1006. Step 6: Minor code changes and updated namelists to enable successful SETTE testing

File:

• branches/2012/dev_NOC_2012_rev3555/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssm.F90 (modified) (3 diffs)

branches/2012/dev_NOC_2012_rev3555/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssm.F90

@@ -25 +25 @@
    PRIVATE
 
-   PUBLIC   sbc_ssm    ! routine called by step.F90
+   PUBLIC   sbc_ssm         ! routine called by step.F90
+   PUBLIC   sbc_ssm_init    ! routine called by sbcmod.F90
    
    LOGICAL, SAVE  ::   l_ssm_mean = .FALSE.       ! keep track of whether means have been read
@@ -71 +72 @@
       ELSE
          !                                                ! ----------------------------------------------- !
-         IF( kt == nit000 && .NOT. l_ssm_mean ) THEN      !   Initialisation: 1st time-step, no input means !
+         IF( kt == nit000 .AND. .NOT. l_ssm_mean ) THEN   !   Initialisation: 1st time-step, no input means !
             !                                             ! ----------------------------------------------- !
             IF(lwp) WRITE(numout,*)
@@ -145 +146 @@
       !! ** Action  : - read parameters
       !!----------------------------------------------------------------------
-      REAL(wp) ::   zcoef               ! local scalar
+      REAL(wp) ::   zcoef, zf_sbc       ! local scalar
       !!----------------------------------------------------------------------