Changeset 4827 for branches/UKMO/dev_3841_sbc/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

Timestamp:

2014-10-31T12:45:41+01:00 (9 years ago)

Author:

charris

Message:

Some demonstration code changes.

File:

• branches/UKMO/dev_3841_sbc/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90 (modified) (3 diffs)

branches/UKMO/dev_3841_sbc/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

@@ -37 +37 @@
    USE sbcice_cice      ! surface boundary condition: CICE    sea-ice model
    USE sbccpl           ! surface boundary condition: coupled florulation
+   USE sbcget
    USE cpl_oasis3, ONLY:lk_cpl      ! are we in coupled mode?
    USE sbcssr           ! surface boundary condition: sea surface restoring
@@ -221 +222 @@
       IF( ln_ssr      )   CALL sbc_ssr_init               ! Sea-Surface Restoring initialisation
       !
+      CALL sbc_get_init
+      !
       IF( nn_ice == 4 )   CALL cice_sbc_init( nsbc )      ! CICE initialisation
       !
@@ -258 +261 @@
          sfx_b(:,:) = sfx(:,:)
       ENDIF
+      !
+      CALL sbc_get( kt )
+      !
       !                                            ! ---------------------------------------- !
       !                                            !        forcing field computation         !