Changeset 400 for branches/GRISLIv3/SOURCES/initial-phy-2.f90
- Timestamp:
- 03/28/23 16:41:03 (14 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/GRISLIv3/SOURCES/initial-phy-2.f90
r260 r400 18 18 ! ************************************************** 19 19 20 use module3D_phy 21 use param_phy_mod 20 use module3D_phy, only:icompteur,iout,reprcptr,igrdline,schoof,ibmelt_inv,dtmin,dtmax,& 21 dtt,testdiag,geoplace,num_param,num_rep_42,num_ritz,dt,ntmax,time,tafor,sealevel,& 22 sealevel_2d,secyear,nzz,nz,nzm,cl,da,nice,isynchro 23 use runparam, only :runname,itracebug,num_tracebug,tbegin,tend,dirsource,dirnameout,dttest,& 24 nt 25 use param_phy_mod, only:rog,g,ro,row,rowg,rom,romg,rofresh,rofreshg,dice,coef_Sflot,& 26 coef_Bflot 22 27 23 28 implicit none … … 183 188 ! temperature forcing : annual, july. 184 189 TAFOR=0. 185 TJFOR=0.0186 190 SEALEVEL=0.0 187 191 sealevel_2d(:,:)=0. … … 213 217 romg = rom*g !< rom*g (asthenosphere) 214 218 rofreshg = rofresh*g !< rofresh*g 215 d00 = ro**3*g**3 !< ro**3*g**3216 219 dice = ro/row !< ro/row 217 220
Note: See TracChangeset
for help on using the changeset viewer.