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 7009 for branches/UKMO/v3_6_extra_CMIP6_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90 – NEMO

Ignore:
Timestamp:
2016-10-07T12:37:42+02:00 (7 years ago)
Author:
timgraham
Message:

Added some new coupling fields for CMIP6.

File:
1 edited

Legend:

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

    r6535 r7009  
    14131413         IF( iom_use('hflx_rain_cea') )   & 
    14141414            CALL iom_put( 'hflx_rain_cea', frcv(jpr_rain)%z3(:,:,1) * zcptn(:,:) * tmask(:,:,1))   ! heat flux from liq. precip.  
     1415         IF( iom_use('hflx_prec_cea') )   & 
     1416            CALL iom_put( 'hflx_prec_cea', ztprecip * zcptn(:,:) * tmask(:,:,1) * p_frld(:,:) )   ! heat content flux from all precip  (cell avg) 
    14151417         IF( iom_use('evap_ao_cea') .OR. iom_use('hflx_evap_cea') )   & 
    14161418            ztmp(:,:) = frcv(jpr_tevp)%z3(:,:,1) - frcv(jpr_ievp)%z3(:,:,1) * zicefr(:,:) 
     
    14781480      ! Sublimation over sea-ice (cell average) 
    14791481      IF( iom_use('subl_ai_cea') )  CALL iom_put( 'subl_ai_cea', frcv(jpr_ievp)%z3(:,:,1) * zicefr(:,:) ) 
    1480       ! runoffs and calving (put in emp_tot) 
     1482! runoffs and calving (put in emp_tot) 
    14811483      IF( srcv(jpr_rnf)%laction )   rnf(:,:) = frcv(jpr_rnf)%z3(:,:,1) 
    14821484      IF( iom_use('hflx_rnf_cea') )   & 
Note: See TracChangeset for help on using the changeset viewer.