Changeset 7460


Ignore:
Timestamp:
2016-12-06T16:02:41+01:00 (5 years ago)
Author:
jcastill
Message:

Changes as in branches/UKMO/dev_r5107_hadgem3_cplseq

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

Legend:

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

    r7459 r7460  
    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,nn_cplmodel) , STAT=ierr(3) )   
     191      ! Hardwire three models as nn_cplmodel has not been read in from the namelist yet.   
     192      ALLOCATE( xcplmask(jpi,jpj,0:3) , STAT=ierr(3) )  
    191193      ! 
    192194      sbc_cpl_alloc = MAXVAL( ierr ) 
     
    274276 
    275277      !                                   ! allocate sbccpl arrays 
    276       IF( sbc_cpl_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'sbc_cpl_alloc : unable to allocate arrays' ) 
     278      !IF( sbc_cpl_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'sbc_cpl_alloc : unable to allocate arrays' ) 
    277279      
    278280      ! ================================ ! 
  • branches/UKMO/r6232_hadgem3_cplseq/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

    r7459 r7460  
    284284      CALL wrk_dealloc( jpi,jpj, ztmp1, ztmp2 ) 
    285285      ! 
     286      ! In coupled mode get extra fields from CICE for passing back to atmosphere   
     287      IF ( ksbc == jp_purecpl ) CALL cice_sbc_hadgam(nit000)   
     288      !    
    286289      IF( nn_timing == 1 )  CALL timing_stop('cice_sbc_init') 
    287290      ! 
     
    708711      IF( nn_timing == 1 )  CALL timing_start('cice_sbc_hadgam') 
    709712      ! 
    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  
    715713      !                                         ! =========================== ! 
    716714      !                                         !   Prepare Coupling fields   ! 
  • branches/UKMO/r6232_hadgem3_cplseq/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

    r7459 r7460  
    266266      ENDIF 
    267267      ! 
    268       IF( lk_oasis )   CALL sbc_cpl_init (nn_ice)   ! OASIS initialisation. must be done before: (1) first time step 
    269       !                                                     !                                            (2) the use of nn_fsbc 
    270  
     268      IF( lk_oasis ) THEN   
     269         IF( sbc_cpl_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'sbc_cpl_alloc : unable to allocate arrays' )            
     270         CALL sbc_cpl_init (nn_ice)   ! OASIS initialisation. must be done before: (1) first time step   
     271                                      ! (2) the use of nn_fsbc   
     272      ENDIF   
    271273!     nn_fsbc initialization if OPA-SAS coupling via OASIS 
    272274!     sas model time step has to be declared in OASIS (mandatory) -> nn_fsbc has to be modified accordingly 
  • branches/UKMO/r6232_hadgem3_cplseq/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r7459 r7460  
    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 
     
    169170            CALL stp                         ! AGRIF: time stepping 
    170171#else 
    171             CALL stp( istp )                 ! standard time stepping 
     172            IF (lk_oasis) CALL sbc_cpl_snd( istp )  ! Coupling to atmos   
     173            CALL stp( istp )   
     174            ! We don't couple on the final timestep because   
     175            ! our restart file has already been written   
     176            ! and contains all the necessary data for a   
     177            ! restart. sbc_cpl_snd could be called here   
     178            ! but it would require   
     179            ! a) A test to ensure it was not performed   
     180            !    on the very last time-step   
     181            ! b) the presence of another call to   
     182            !    sbc_cpl_snd call prior to the main DO loop   
     183            ! This solution produces identical results   
     184            ! with fewer lines of code.    
    172185#endif 
    173186            istp = istp + 1 
  • branches/UKMO/r6232_hadgem3_cplseq/NEMOGCM/NEMO/OPA_SRC/step.F90

    r7459 r7460  
    370370      ! Coupled mode 
    371371      !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
    372       IF( lk_oasis         )   CALL sbc_cpl_snd( kstp )     ! coupled mode : field exchanges 
     372      !IF( lk_oasis         )   CALL sbc_cpl_snd( kstp )     ! coupled mode : field exchanges 
    373373      ! 
    374374#if defined key_iomput 
Note: See TracChangeset for help on using the changeset viewer.