Changeset 18 for trunk/SOURCES/climat-forcage-insolation_mod_oneway.f90

Timestamp:

07/10/15 17:47:34 (9 years ago)

Author:

dumas

Message:

Ajout de climat-forcage-insolation_mod.f90 : Méthode JB avec interpolation sur CO2, insolation et différents états d englacement via snapshots climatique

File:

• trunk/SOURCES/climat-forcage-insolation_mod_oneway.f90 (modified) (4 diffs)

trunk/SOURCES/climat-forcage-insolation_mod_oneway.f90

@@ -4 +4 @@
 ! Lecture d'un fichier de topo associé au fichier climat
 
-module climat_forcage_insolation_mod                   
+module climat_forcage_insolation_mod_oneway                   
 
 ! forcage avec champs mensuels
@@ -55 +55 @@
 
 real,dimension(nx,ny,mois) :: Tm_surf                 ! surface temperature (after topo. correction)
-                                                        ! 13 mois pour  modulo
+                                                       
 real,dimension(nx,ny,mois) :: Pm_surf                 ! surface precipitation (after topo. correction)
 
@@ -139 +139 @@
     call Read_ncdf_var('TOPO',trim(filin),data_2D)    ! topo
     Ssnap(:,:,ictr,igtr)=data_2D(:,:) 
-    where(Ssnap(:,:,ictr,igtr).eq.0.0) 
+    where(Ssnap(:,:,ictr,igtr).eq.0.0)    ! Pour PLIOMIP niv marin=25m
        Ssnap(:,:,ictr,igtr)=25.0
     endwhere
@@ -508 +508 @@
 !--------------------------------------------------------------------------------------------------------
 
-end module climat_forcage_insolation_mod
+end module climat_forcage_insolation_mod_oneway