Changeset 5646


Ignore:
Timestamp:
2015-07-30T13:56:54+02:00 (5 years ago)
Author:
dancopsey
Message:

Moved sbc_cpl_alloc to be before sbc_cpl_init so that xcplmask in allocated dimensions before it is filled with data.

Location:
branches/UKMO/dev_r5107_hadgem3_cplseq/NEMOGCM/NEMO/OPA_SRC/SBC
Files:
2 edited

Legend:

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

    r5591 r5646  
    712712      IF( nn_timing == 1 )  CALL timing_start('cice_sbc_hadgam') 
    713713      ! 
    714       IF( kt == nit000 )  THEN 
    715          IF(lwp) WRITE(numout,*)'cice_sbc_hadgam' 
    716          IF( sbc_cpl_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'sbc_cpl_alloc : unable to allocate arrays' ) 
    717       ENDIF 
    718  
    719714      !                                         ! =========================== ! 
    720715      !                                         !   Prepare Coupling fields   ! 
  • branches/UKMO/dev_r5107_hadgem3_cplseq/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

    r5572 r5646  
    265265      ENDIF 
    266266      ! 
    267       IF( lk_oasis )   CALL sbc_cpl_init (nn_ice)   ! OASIS initialisation. must be done before: (1) first time step 
    268       !                                                     !                                            (2) the use of nn_fsbc 
     267      IF( lk_oasis ) THEN 
     268         IF( sbc_cpl_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'sbc_cpl_alloc : unable to allocate arrays' )          
     269         CALL sbc_cpl_init (nn_ice)   ! OASIS initialisation. must be done before: (1) first time step 
     270                                      !                                            (2) the use of nn_fsbc 
     271      ENDIF 
    269272 
    270273!     nn_fsbc initialization if OPA-SAS coupling via OASIS 
Note: See TracChangeset for help on using the changeset viewer.