Changeset 67 for trunk/SOURCES/GrIce2sea_files
- Timestamp:
- 05/27/16 17:08:36 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SOURCES/GrIce2sea_files/climat_GrIce2sea_years_perturb_mod.f90
r66 r67 16 16 17 17 18 use module3d_phy,only: nx,ny,S,S0,H,Bsoc,acc,abl,BM,Tann,Tjuly,Ts,time,dt,num_param,num_rep_42,num_forc,dirforcage,dirnameinp,tafor,time,sealevel 18 use module3d_phy,only: nx,ny,S,S0,H,Bsoc,acc,abl,BM,Tann,Tjuly,Ts,time,dt,num_param,num_rep_42,num_forc,dirforcage,dirnameinp,tafor,time,sealevel,coefbmshelf 19 19 !use lect_climref_Ice2sea 20 20 use netcdf … … 130 130 !end where 131 131 where ((H(:,:).lt.1.).and.(Bsoc(:,:).gt.0.).and.(bm(:,:).gt.0.)) 132 bm(:,:) = -0. 01132 bm(:,:) = -0.1 133 133 end where 134 134 !cdc test debug Hemin15 et Greeneem15 … … 380 380 381 381 integer i,ift 382 382 383 383 select case (massb_time) 384 384 case(0) … … 421 421 end if 422 422 423 coefbmshelf=(1.+tafor/10.) 424 coefbmshelf=max(coefbmshelf,0.) 425 coefbmshelf=min(coefbmshelf,2.) 426 423 427 case(1) 424 428 call massb_Ice2sea_RCM
Note: See TracChangeset
for help on using the changeset viewer.