Ignore:
Timestamp:
2019-12-07T12:40:06+01:00 (3 months ago)
Author:
cetlod
Message:

check out & merge dev_r11643_ENHANCE-11_CEthe_Shaconemo_diags branch onto dev_r12072_TOP-01_ENHANCE-11_CEthe

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r12072_TOP-01_ENHANCE-11_CEthe/src/OCE/SBC/sbcmod.F90

    r11993 r12109  
    244244         fwfisf_b(:,:)   = 0._wp   ;   risf_tsc_b(:,:,:) = 0._wp 
    245245      END IF 
     246      ! 
     247      IF( sbc_ssr_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'sbc_init : unable to allocate sbc_ssr arrays' ) 
     248      IF( .NOT.ln_ssr ) THEN               !* Initialize qrp and erp if no restoring  
     249         qrp(:,:) = 0._wp 
     250         erp(:,:) = 0._wp 
     251      ENDIF 
     252      ! 
     253 
    246254      IF( nn_ice == 0 ) THEN        !* No sea-ice in the domain : ice fraction is always zero 
    247255         IF( nn_components /= jp_iam_opa )   fr_i(:,:) = 0._wp    ! except for OPA in SAS-OPA coupled case 
     
    552560         CALL iom_put( "taum"  , taum       )                   ! wind stress module 
    553561         CALL iom_put( "wspd"  , wndm       )                   ! wind speed  module over free ocean or leads in presence of sea-ice 
     562         CALL iom_put( "qrp", qrp )                             ! heat flux damping 
     563         CALL iom_put( "erp", erp )                             ! freshwater flux damping 
    554564      ENDIF 
    555565      ! 
Note: See TracChangeset for help on using the changeset viewer.