Changeset 7253 for branches/UKMO/r5936_hadgem3_cplseq/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

Timestamp:

2016-11-17T17:12:23+01:00 (8 years ago)

Author:

jcastill

Message:

Bug fix for the UKEP project, where we couple 3 different models and use ln_mixcpl=.true.

File:

• branches/UKMO/r5936_hadgem3_cplseq/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90 (modified) (1 diff)

branches/UKMO/r5936_hadgem3_cplseq/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

@@ -191 +191 @@
       ! Hardwire only two models as nn_cplmodel has not been read in 
       ! from the namelist yet. 
-      ALLOCATE( xcplmask(jpi,jpj,2) , STAT=ierr(3) ) 
+      ALLOCATE( xcplmask(jpi,jpj,0:3) , STAT=ierr(3) ) 
       !
       sbc_cpl_alloc = MAXVAL( ierr )