Ignore:
Timestamp:
2015-02-02T11:28:50+01:00 (6 years ago)
Author:
vancop
Message:

new itd boundaries, namelist changes, mono-category and comments

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limthd_dh.F90

    r5047 r5048  
    688688         END DO 
    689689      END DO 
     690       
     691      ! 
     692      !------------------------------------------------------------- 
     693      ! Net melting (input for thin ice melting, mono-category case) 
     694      !------------------------------------------------------------- 
     695      ! 
     696      IF ( ( ( nn_monocat .EQ. 1 ) .OR. ( nn_monocat .EQ. 4 ) ) .AND. ( jpl == 1 ) ) THEN 
     697         DO ji = kideb, kiut 
     698            dh_i_melt_1d(ji) = MIN( dh_i_surf(ji) + dh_i_bott(ji) + dh_snowice(ji), 0._wp ) 
     699         END DO 
     700      ENDIF 
    690701 
    691702      CALL wrk_dealloc( jpij, zh_s, zqprec, zq_su, zq_bo, zf_tt, zq_rema ) 
Note: See TracChangeset for help on using the changeset viewer.