Changeset 359 for branches/iLoveclim/SOURCES/3D-physique-gen_mod.f90

Timestamp:

06/10/22 17:11:04 (2 years ago)

Author:

aquiquet

Message:

Trunk merged to branch at revision 357

Location:

branches/iLoveclim

Files:

• . (modified) (1 prop)
• SOURCES/3D-physique-gen_mod.f90 (modified) (4 diffs)

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

@@ -65 +65 @@
   integer ::  ITEMP                     !< 
   integer ::  ITBOOST                   !< 
+  integer ::  niter_nolin               !< number of velocity iterations for non-linear dragging laws
   ! integer ::  NBLIG                   ! ??????????????????????????????
   integer ::  ndebug                    !< pour faire des sorties de debug a plusieurs pas de temps
@@ -88 +89 @@
   real :: coefbmshelf                   !< coef permettant de faire varier la fusion basale :
   !< 3 dimensions pour les 3 bassins oceaniques de Climber???
-
-  real ::  cf                           !< coefficient loi frottement
-  ! real ::  CSI                          ! proportion of melted water that can refreeze *)
-  ! real ::  Cice                         ! melting factors for ice 
-  ! real ::  Csnow                        ! melting factors for snow 
 
   real ::  CL                           !< specific latent heat of fusion of ice J/Kg  
@@ -124 +120 @@
   real ::  ff                           !< coefficient de la loi de frottement solide
   real ::  ff_stream                    !< coefficient de la loi de frottement solide pour les ice-streams
-  ! real ::  PY                           ! ct for PDD calculation
-  real ::  PYY                          !< 
-!  real ::  PSOLID                       !< temp limit between liquid and solid precip
-  ! real ::  PDDCT                        ! ct for PDD calculation     
-  real ::  PDSI                         !< 
-  real ::  PDS                          !< 
   real ::  RGAS                         !< gas constant (J/mol/K)
   !! Ne sert plus a rien avec param_phy_mod real ::  ROM                          !< density of mantle
@@ -140 +130 @@
   !! Ne sert plus a rien avec param_phy_mod real ::  ROMG                         !< = ROM*G  (asthenosphere)
   real ::  SECYEAR                      !< for relation an/seconds
-  !real ::  S22                          ! ct for PDD calculation
   real,target ::  sealevel                     !< niveau des mers, afq: now used as eustatic sea level
-  ! real ::  SIGMA                        ! variabilite Tday
   real ::  SURF                         !< 
   real ::  STEP                         !< 
-!  real ::  SIF                          !< 
-!  real ::  SUMM                         !< 
-  real ::  SIMAX                        !< 
-  real ::  SPHI                         !< 
-!  real ::  TEMPGRAD                     !< atmospheric temperature gradient (annual)
-!  real ::  TEMPGRJUL                    !< atmospheric temperature gradient (july)
   real (kind=kind(0.d0)) ::  TIME       !< temps : en double precision
   real ::  TAFOR                        !< temperature forcing : annual