Changeset 9576 for branches/2017/dev_merge_2017/NEMOGCM/CONFIG
- Timestamp:
- 2018-05-11T16:50:48+02:00 (6 years ago)
- Location:
- branches/2017/dev_merge_2017/NEMOGCM/CONFIG
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/CONFIG/SPITZ12/MY_SRC/sbcblk.F90
r9552 r9576 45 45 USE sbc_ice ! Surface boundary condition: ice fields 46 46 USE lib_fortran ! to use key_nosignedzero 47 #if defined key_ lim347 #if defined key_si3 48 48 USE ice , ONLY : u_ice, v_ice, jpl, a_i_b, at_i_b, tm_su, rn_cnd_s 49 49 USE icethd_dh ! for CALL ice_thd_snwblow … … 65 65 PUBLIC sbc_blk_init ! called in sbcmod 66 66 PUBLIC sbc_blk ! called in sbcmod 67 #if defined key_ lim367 #if defined key_si3 68 68 PUBLIC blk_ice_tau ! routine called in iceforcing 69 69 PUBLIC blk_ice_flx ! routine called in iceforcing … … 539 539 & * ( MIN( sf(jp_tair)%fnow(:,:,1), rt0_snow ) - rt0 ) * cpic * tmask(:,:,1) 540 540 ! 541 #if defined key_ lim3541 #if defined key_si3 542 542 qns_oce(:,:) = zqlw(:,:) - zqsb(:,:) - zqla(:,:) ! non solar without emp (only needed by LIM3) 543 543 qsr_oce(:,:) = qsr(:,:) … … 690 690 END FUNCTION L_vap 691 691 692 #if defined key_ lim3692 #if defined key_si3 693 693 !!---------------------------------------------------------------------- 694 !! 'key_ lim3' ESIM sea-ice model694 !! 'key_si3' ESIM sea-ice model 695 695 !!---------------------------------------------------------------------- 696 696 !! blk_ice_tau : provide the air-ice stress -
branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/CANAL/MY_SRC/diawri.F90
r9403 r9576 51 51 USE ioipsl ! 52 52 53 #if defined key_ lim353 #if defined key_si3 54 54 USE icewri 55 55 #endif … … 1076 1076 ENDIF 1077 1077 1078 #if defined key_ lim31078 #if defined key_si3 1079 1079 IF( nn_ice == 2 ) THEN ! condition needed in case agrif + ice-model but no-ice in child grid 1080 1080 CALL ice_wri_state( kt, id_i, nh_i ) -
branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/WAD/MY_SRC/bdyini.F90
r9168 r9576 344 344 IF(lwp) WRITE(numout,*) 345 345 346 #if defined key_ lim3346 #if defined key_si3 347 347 IF(lwp) WRITE(numout,*) 'Boundary conditions for sea ice: ' 348 348 SELECT CASE( cn_ice_lim(ib_bdy) ) -
branches/2017/dev_merge_2017/NEMOGCM/CONFIG/cfg.txt
r9575 r9576 15 15 ORCA2_SAS_SI3_ST OCE_SRC ICE_SRC NST_SRC SAS_SRC 16 16 ORCA2_SI3_OBS_ST OCE_SRC ICE_SRC 17 AGRIF_NORDIC_ST OCE_SRC ICE_SRC NST_SRC 18 AGRIF_NORDIC_NOAGRIF_ST OCE_SRC ICE_SRC NST_SRC 19 SPITZ12_ST OCE_SRC ICE_SRC
Note: See TracChangeset
for help on using the changeset viewer.