Changeset 6 for SCHWARZ_ORCA2LIM3/SOURCES/NEMO/sbcmod.F90

Timestamp:

11/06/18 17:12:36 (5 years ago)

Author:

snguyen

Message:

updated SOURCES/NEMO for schwarz

File:

• SCHWARZ_ORCA2LIM3/SOURCES/NEMO/sbcmod.F90 (modified) (2 diffs)

SCHWARZ_ORCA2LIM3/SOURCES/NEMO/sbcmod.F90

@@ -336 +336 @@
       !                                                
       IF( .NOT. ( kt == nit000 .AND. kswr == 1 ) &
-!        & .AND. .NOT. ( MOD (kt - nit000, ntsinswr) == 0 .AND. kswr > 1 ) & ! ---------------------------------------- !
+        & .AND. .NOT. ( MOD (kt - nit000, ntsinswr) == 0 .AND. kswr > 1 ) & ! ---------------------------------------- !
         &                                                            ) THEN !          Swap of forcing fields          !
          !                                                                  ! ---------------------------------------- !
@@ -449 +449 @@
             sfx_b (:,:) = sfx(:,:)
          ENDIF
-!      ELSE IF( MOD ( kt - nit000, ntsinswr ) == 0 .AND. kswr > 1 )  THEN
-!            CALL swz_restore_sbcmod
+      ELSE IF( MOD ( kt - nit000, ntsinswr ) == 0 .AND. kswr > 1 )  THEN
+         CALL swz_restore_sbcmod
       ENDIF
       !