Changeset 5491


Ignore:
Timestamp:
2015-06-25T18:13:18+02:00 (5 years ago)
Author:
dancopsey
Message:

Hardwire only two models as nn_cplmodel has not been read in from the namelist yet.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5107_hadgem3_cplseq/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r5489 r5491  
    162162      ALLOCATE( a_i(jpi,jpj,1) , STAT=ierr(2) )  ! used in sbcice_if.F90 (done here as there is no sbc_ice_if_init) 
    163163#endif 
    164       ALLOCATE( xcplmask(jpi,jpj,nn_cplmodel) , STAT=ierr(3) ) 
     164      !ALLOCATE( xcplmask(jpi,jpj,nn_cplmodel) , STAT=ierr(3) ) 
     165      ! Hardwire only two models as nn_cplmodel has not been read in 
     166      ! from the namelist yet. 
     167      ALLOCATE( xcplmask(jpi,jpj,2) , STAT=ierr(3) )    
    165168      ! 
    166169      sbc_cpl_alloc = MAXVAL( ierr ) 
Note: See TracChangeset for help on using the changeset viewer.