- Timestamp:
- 2020-04-10T16:02:33+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/ICE/icethd.F90
r12726 r12734 51 51 LOGICAL :: ln_icedO ! activate ice growth in open-water (T) or not (F) 52 52 LOGICAL :: ln_icedS ! activate gravity drainage and flushing (T) or not (F) 53 LOGICAL :: ln_leadhfx ! heat in the leads is used to melt sea-ice before warming the ocean 53 54 54 55 !! * Substitutions … … 164 165 ! If the grid cell is fully covered by ice (no leads) => transfer energy from the lead budget to the ice bottom budget 165 166 IF( ( zqld >= 0._wp .AND. at_i(ji,jj) > 0._wp ) .OR. at_i(ji,jj) >= (1._wp - epsi10) ) THEN 166 fhld (ji,jj) = rswitch * zqld * r1_rdtice / MAX( at_i(ji,jj), epsi10 ) ! divided by at_i since this is (re)multiplied by a_i in icethd_dh.F90 167 IF( ln_leadhfx ) THEN ; fhld(ji,jj) = rswitch * zqld * r1_rdtice / MAX( at_i(ji,jj), epsi10 ) ! divided by at_i since this is (re)multiplied by a_i in icethd_dh.F90 168 ELSE ; fhld(ji,jj) = 0._wp 169 ENDIF 167 170 qlead(ji,jj) = 0._wp 168 171 ELSE … … 536 539 INTEGER :: ios ! Local integer output status for namelist read 537 540 !! 538 NAMELIST/namthd/ ln_icedH, ln_icedA, ln_icedO, ln_icedS 541 NAMELIST/namthd/ ln_icedH, ln_icedA, ln_icedO, ln_icedS, ln_leadhfx 539 542 !!------------------------------------------------------------------- 540 543 ! … … 552 555 WRITE(numout,*) '~~~~~~~~~~~~' 553 556 WRITE(numout,*) ' Namelist namthd:' 554 WRITE(numout,*) ' activate ice thick change from top/bot (T) or not (F) ln_icedH = ', ln_icedH 555 WRITE(numout,*) ' activate lateral melting (T) or not (F) ln_icedA = ', ln_icedA 556 WRITE(numout,*) ' activate ice growth in open-water (T) or not (F) ln_icedO = ', ln_icedO 557 WRITE(numout,*) ' activate gravity drainage and flushing (T) or not (F) ln_icedS = ', ln_icedS 557 WRITE(numout,*) ' activate ice thick change from top/bot (T) or not (F) ln_icedH = ', ln_icedH 558 WRITE(numout,*) ' activate lateral melting (T) or not (F) ln_icedA = ', ln_icedA 559 WRITE(numout,*) ' activate ice growth in open-water (T) or not (F) ln_icedO = ', ln_icedO 560 WRITE(numout,*) ' activate gravity drainage and flushing (T) or not (F) ln_icedS = ', ln_icedS 561 WRITE(numout,*) ' heat in the leads is used to melt sea-ice before warming the ocean ln_leadhfx = ', ln_leadhfx 558 562 ENDIF 559 563 !
Note: See TracChangeset
for help on using the changeset viewer.