Changeset 126 for branches/iLoveclim/SOURCES/main3D-0.4-40km.f90

Timestamp:

07/11/17 18:36:38 (7 years ago)

Author:

aquiquet

Message:

iLoveclim branch, further additions for water conservation

File:

• branches/iLoveclim/SOURCES/main3D-0.4-40km.f90 (modified) (2 diffs)

branches/iLoveclim/SOURCES/main3D-0.4-40km.f90

@@ -132 +132 @@
   PRINT*,'TIME = ',TIME,' TEND = ',TEND
 
-!afq -- reset the GRISLI fluxes to CLIO:
-     calvin_GRIS(:,:) = 0.  
-     runof_oc(:,:) = 0. 
-     bmelt_oc(:,:) = 0.
+!afq for CONSEAU!afq -- reset the GRISLI fluxes to CLIO:
+!afq for CONSEAU     calvin_GRIS(:,:) = 0.  
+!afq for CONSEAU     runof_oc(:,:) = 0. 
+!afq for CONSEAU     bmelt_oc(:,:) = 0.
      
   time_loop: DO WHILE (time.LT.tend)  !____________________________ debut boucle temporelle
@@ -145 +145 @@
 !afq -- reset the CLIO fluxes to GRISLI:
   bmshelfCLIO(:,:,:) = 0d0
-!afq -- put the right units for GRISLI fluxes to CLIO:
-     calvin_GRIS(:,:) = calvin_GRIS(:,:)/timCplGRISyr
-     runof_oc(:,:) = runof_oc(:,:)/timCplGRISyr
-     bmelt_oc(:,:) = bmelt_oc(:,:)/timCplGRISyr
+!afq for CONSEAU!afq -- put the right units for GRISLI fluxes to CLIO:
+!afq for CONSEAU     calvin_GRIS(:,:) = calvin_GRIS(:,:)/timCplGRISyr
+!afq for CONSEAU     runof_oc(:,:) = runof_oc(:,:)/timCplGRISyr
+!afq for CONSEAU     bmelt_oc(:,:) = bmelt_oc(:,:)/timCplGRISyr
 
   if (itracebug.eq.1)  call tracebug('dans main avant call out_recovery ')