Changeset 400 for branches/GRISLIv3

Timestamp:

03/28/23 16:41:03 (16 months ago)

Author:

dumas

Message:

use only in subroutine initial_phy and deletion of the unused variable D00

Location:

branches/GRISLIv3/SOURCES

Files:

• 3D-physique-gen_mod.f90 (modified) (2 diffs)
• initial-0.3.f90 (modified) (1 diff)
• initial-phy-2.f90 (modified) (3 diffs)
• param_phy_mod.f90 (modified) (1 diff)

branches/GRISLIv3/SOURCES/3D-physique-gen_mod.f90

@@ -96 +96 @@
   !real ::  DTP                          !< integrating step for positive degree days (degrees)
   !! Ne sert plus a rien avec param_phy_mod real ::  DICE                         !< = RO/ROW
-  real ::  DA                           !< 
+  real ::  DA                           !< mantle diffusion
   real ::  DX1                          !< 1/dx
   real ::  DTDX                         !< dt/dx
@@ -135 +135 @@
   real (kind=kind(0.d0)) ::  TIME       !< temps : en double precision
   real ::  TAFOR                        !< temperature forcing : annual
-  real ::  TJFOR                        !< temperature forcing : july
-!  real ::  TEMP                         !< 
   real ::  TESTDIAG                     !< for time step calculation (icethick)
   real ::  V_limit                      !< vitesse maxi (limitateur de flux pour conserv masse)

branches/GRISLIv3/SOURCES/initial-0.3.f90

@@ -31 +31 @@
   use diagno_mod, only:init_diagno
   use resolmeca_SIA_L1, only:init_resol_meca
-  use flottab_mod, only:
   use sorties_ncdf_grisli, only:sortie_ncdf_cat,init_out_ncdf
   use util_recovery, only:init_recovery

branches/GRISLIv3/SOURCES/initial-phy-2.f90

@@ -18 +18 @@
   !     **************************************************
 
-  use module3D_phy
-  use param_phy_mod
+  use module3D_phy, only:icompteur,iout,reprcptr,igrdline,schoof,ibmelt_inv,dtmin,dtmax,&
+       dtt,testdiag,geoplace,num_param,num_rep_42,num_ritz,dt,ntmax,time,tafor,sealevel,&
+       sealevel_2d,secyear,nzz,nz,nzm,cl,da,nice,isynchro
+  use runparam, only :runname,itracebug,num_tracebug,tbegin,tend,dirsource,dirnameout,dttest,&
+       nt
+  use param_phy_mod, only:rog,g,ro,row,rowg,rom,romg,rofresh,rofreshg,dice,coef_Sflot,&
+       coef_Bflot
 
   implicit none
@@ -183 +188 @@
   !     temperature forcing : annual, july. 
   TAFOR=0.
-  TJFOR=0.0
   SEALEVEL=0.0
   sealevel_2d(:,:)=0.
@@ -213 +217 @@
 romg     = rom*g               !<  rom*g  (asthenosphere)
 rofreshg = rofresh*g           !<  rofresh*g 
-d00      = ro**3*g**3          !<  ro**3*g**3
 dice     = ro/row              !<  ro/row
 

branches/GRISLIv3/SOURCES/param_phy_mod.f90

@@ -31 +31 @@
 real ::  ROMG                 != ROM*G            !<  ROM*G  (asthenosphere)
 
-real ::  D00                  != RO**3*G**3       !<  RO**3*G**3
 real ::  DICE                 != RO/ROW           !<  RO/ROW