Changeset 7962 for branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC

Timestamp:

2017-04-24T18:16:45+02:00 (7 years ago)

Author:

jwhile

Message:

Undoing accidental commit

Location:

branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC

Files:

• ASM/asminc.F90 (modified) (1 diff)
• step.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90

@@ -766 +766 @@
          !  
       ENDIF
+      ! Perhaps the following call should be in step
+      IF   ( ln_seaiceinc  )   CALL seaice_asm_inc ( kt )   ! apply sea ice concentration increment
       !
    END SUBROUTINE tra_asm_inc

branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/step.F90

@@ -117 +117 @@
       END DO
 
-      IF( ln_seaiceinc ) &
-         &               CALL seaice_asm_inc ( kstp ) ! setup sea ice concentration increment
                          CALL sbc    ( kstp )         ! Sea Boundary Condition (including sea-ice)
                                                       ! clem: moved here for bdy ice purpose