Changeset 6562


Ignore:
Timestamp:
2016-05-18T15:28:39+02:00 (6 years ago)
Author:
frrh
Message:

Add changes from dev_r5107_hadgem3_cplseq@5646

Location:
branches/UKMO/dev_r5518_hadgem3_cplseq/NEMOGCM/NEMO/OPA_SRC
Files:
5 edited

Legend:

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

    r6559 r6562  
    188188      ALLOCATE( a_i(jpi,jpj,1) , STAT=ierr(2) )  ! used in sbcice_if.F90 (done here as there is no sbc_ice_if_init) 
    189189#endif 
    190       ALLOCATE( xcplmask(jpi,jpj,0:nn_cplmodel) , STAT=ierr(3) ) 
     190      !ALLOCATE( xcplmask(jpi,jpj,0:nn_cplmodel) , STAT=ierr(3) ) 
     191      ! Hardwire only two models as nn_cplmodel has not been read in 
     192      ! from the namelist yet. 
     193      ALLOCATE( xcplmask(jpi,jpj,0:2) , STAT=ierr(3) )    
    191194      ! 
    192195      sbc_cpl_alloc = MAXVAL( ierr ) 
     
    274277 
    275278      !                                   ! allocate sbccpl arrays 
    276       IF( sbc_cpl_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'sbc_cpl_alloc : unable to allocate arrays' ) 
     279      !IF( sbc_cpl_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'sbc_cpl_alloc : unable to allocate arrays' ) 
    277280      
    278281      ! ================================ ! 
  • branches/UKMO/dev_r5518_hadgem3_cplseq/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

    r6559 r6562  
    284284      CALL wrk_dealloc( jpi,jpj, ztmp1, ztmp2 ) 
    285285      ! 
     286      ! In coupled mode get extra fields from CICE for passing back to atmosphere 
     287  
     288      IF ( ksbc == jp_purecpl ) CALL cice_sbc_hadgam(nit000) 
     289      !  
    286290      IF( nn_timing == 1 )  CALL timing_stop('cice_sbc_init') 
    287291      ! 
     
    708712      IF( nn_timing == 1 )  CALL timing_start('cice_sbc_hadgam') 
    709713      ! 
    710       IF( kt == nit000 )  THEN 
    711          IF(lwp) WRITE(numout,*)'cice_sbc_hadgam' 
    712          IF( sbc_cpl_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'sbc_cpl_alloc : unable to allocate arrays' ) 
    713       ENDIF 
    714  
    715714      !                                         ! =========================== ! 
    716715      !                                         !   Prepare Coupling fields   ! 
  • branches/UKMO/dev_r5518_hadgem3_cplseq/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

    r6559 r6562  
    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 
  • branches/UKMO/dev_r5518_hadgem3_cplseq/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r6559 r6562  
    6868   USE icbini          ! handle bergs, initialisation 
    6969   USE icbstp          ! handle bergs, calving, themodynamics and transport 
     70   USE sbccpl  
    7071   USE cpl_oasis3      ! OASIS3 coupling 
    7172   USE c1d             ! 1D configuration 
     
    165166            CALL Agrif_Step( stp )           ! AGRIF: time stepping 
    166167#else 
    167             CALL stp( istp )                 ! standard time stepping 
     168            IF (lk_oasis) CALL sbc_cpl_snd( istp )  ! Coupling to atmos 
     169       CALL stp( istp ) 
     170            ! We don't couple on the final timestep because 
     171            ! our restart file has already been written 
     172            ! and contains all the necessary data for a 
     173            ! restart. sbc_cpl_snd could be called here 
     174            ! but it would require 
     175            ! a) A test to ensure it was not performed 
     176            !    on the very last time-step 
     177            ! b) the presence of another call to 
     178            !    sbc_cpl_snd call prior to the main DO loop 
     179            ! This solution produces identical results 
     180            ! with fewer lines of code.  
    168181#endif 
    169182            istp = istp + 1 
  • branches/UKMO/dev_r5518_hadgem3_cplseq/NEMOGCM/NEMO/OPA_SRC/step.F90

    r6559 r6562  
    357357      ! Coupled mode 
    358358      !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
    359       IF( lk_oasis         )   CALL sbc_cpl_snd( kstp )     ! coupled mode : field exchanges 
     359      !IF( lk_oasis         )   CALL sbc_cpl_snd( kstp )     ! coupled mode : field exchanges 
    360360      ! 
    361361#if defined key_iomput 
Note: See TracChangeset for help on using the changeset viewer.