Changeset 6902 for branches/UKMO/dev_r5518_ciceiau/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90

Timestamp:

2016-08-30T15:44:11+02:00 (8 years ago)

Author:

drew

Message:

UKMO CICE Ticket#68. Fix bug in delivery of sea ice increments to CICE code due to assignment of sea ice increments after call to SBC. May require additional changes to CICE code to have seaice iau code called after thermodynamics.

File:

• branches/UKMO/dev_r5518_ciceiau/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_ciceiau/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