New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 11993 for NEMO/trunk/src/OCE/SBC/sbcmod.F90 – NEMO

Ignore:
Timestamp:
2019-11-28T11:20:53+01:00 (5 years ago)
Author:
cetlod
Message:

trunk : undo bad commit. Oups

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/SBC/sbcmod.F90

    r11989 r11993  
    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  
    254246      IF( nn_ice == 0 ) THEN        !* No sea-ice in the domain : ice fraction is always zero 
    255247         IF( nn_components /= jp_iam_opa )   fr_i(:,:) = 0._wp    ! except for OPA in SAS-OPA coupled case 
     
    560552         CALL iom_put( "taum"  , taum       )                   ! wind stress module 
    561553         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 
    564554      ENDIF 
    565555      ! 
Note: See TracChangeset for help on using the changeset viewer.