Changeset 7813 for trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd.F90
- Timestamp:
- 2017-03-20T17:17:45+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd.F90
r7753 r7813 571 571 !!------------------------------------------------------------------- 572 572 INTEGER :: ios ! Local integer output status for namelist read 573 NAMELIST/namicethd/ rn_kappa_i, nn_conv_dif, rn_terr_dif, nn_ice_thcon, ln_it_qnsice,nn_monocat, &574 & ln_limdH, rn_betas, &575 & ln_limdA, rn_beta, rn_dmin, &573 NAMELIST/namicethd/ rn_kappa_i, nn_conv_dif, rn_terr_dif, nn_ice_thcon, ln_it_qnsice, nn_monocat, rn_cdsn, & 574 & ln_limdH, rn_betas, & 575 & ln_limdA, rn_beta, rn_dmin, & 576 576 & ln_limdO, rn_hnewice, ln_frazil, rn_maxfrazb, rn_vfrazb, rn_Cfrazb, rn_himin 577 577 !!------------------------------------------------------------------- … … 585 585 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicethd in configuration namelist', lwp ) 586 586 IF(lwm) WRITE ( numoni, namicethd ) 587 ! 588 IF ( ( jpl > 1 ) .AND. ( nn_monocat == 1 ) ) THEN 589 nn_monocat = 0 590 IF(lwp) WRITE(numout,*) 591 IF(lwp) WRITE(numout,*) ' nn_monocat forced to 0 as jpl>1, i.e. multi-category case is chosen' 592 ENDIF 587 593 ! 588 594 IF(lwp) THEN ! control print … … 596 602 WRITE(numout,*)' iterate the surface non-solar flux (T) or not (F) ln_it_qnsice = ', ln_it_qnsice 597 603 WRITE(numout,*)' virtual ITD mono-category parameterizations (1) or not nn_monocat = ', nn_monocat 604 WRITE(numout,*)' thermal conductivity of the snow rn_cdsn = ', rn_cdsn 598 605 WRITE(numout,*)' -- limthd_dh --' 599 606 WRITE(numout,*)' activate ice thick change from top/bot (T) or not (F) ln_limdH = ', ln_limdH … … 614 621 WRITE(numout,*)' check heat conservation in the ice/snow con_i = ', con_i 615 622 ENDIF 616 IF( jpl > 1 .AND. nn_monocat == 1 ) THEN617 nn_monocat = 0618 IF(lwp) WRITE(numout,*)619 IF(lwp) WRITE(numout,*) ' nn_monocat forced to 0 as jpl>1, i.e. multi-category case is chosen'620 ENDIF621 623 ! 622 624 END SUBROUTINE lim_thd_init
Note: See TracChangeset
for help on using the changeset viewer.