Ignore:
Timestamp:
2020-02-12T13:58:18+01:00 (10 months ago)
Author:
dancopsey
Message:

Get skin temperature to be passed from the atmosphere

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0_add_pond_lids_prints/src/ICE/icethd_zdf_bl99.F90

    r12371 r12374  
    930930         DO ji = 1, npti 
    931931            qcn_ice_top_1d(ji) = qcn_ice_1d(ji) 
    932             ! 
     932         END DO 
     933         ! 
     934      ENDIF 
     935      !     surface ice temperature 
     936      IF( k_cnd == np_cnd_ON .AND. ln_cndemulate ) THEN 
     937         ! 
     938         DO ji = 1, npti 
    933939            t_su_1d(ji) = (  qcn_ice_top_1d(ji) &            ! calculate surface temperature 
    934940               &           +           isnow(ji)   * zkappa_s(ji,0) * zg1s * t_s_1d(ji,1) & 
Note: See TracChangeset for help on using the changeset viewer.