Changeset 3387 for LMDZ6/trunk/libf/phylmd/physiq_mod.F90

Timestamp:

Sep 4, 2018, 7:42:50 PM (6 years ago)

Author:

oboucher

Message:

adding infocfields_init routine and
its call from physiq. This routines reads
which fields need to be transferred between
model components in ESM configuration.
No impact whatsoever in LMDZ mode.

File:

• LMDZ6/trunk/libf/phylmd/physiq_mod.F90 (modified) (9 diffs)

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -16 +16 @@
        d_u, d_v, d_t, d_qx, d_ps)
 
-    use assert_m, only: assert
+    USE assert_m, only: assert
     USE ioipsl, only: histbeg, histvert, histdef, histend, histsync, &
          histwrite, ju2ymds, ymds2ju, getin
@@ -168 +168 @@
        omega,  &
        epmax_diag,  &
-
        !    Deep convective variables used in phytrac
        pmflxr, pmflxs,  &
@@ -184 +183 @@
        epmlmMm, eplaMm, &
        sij, &
-
+       !
        cldemi,  &
        cldfra, cldtau, fiwc,  &
@@ -199 +198 @@
        prfl, psfl, fraca, Vprecip,  &
        zw2,  &
-       
+       !
        fluxu, fluxv,  &
        fluxt,  &
-
+       !
        uwriteSTD, vwriteSTD, &                !pour calcul_STDlev.h
        wwriteSTD, phiwriteSTD, &              !pour calcul_STDlev.h
        qwriteSTD, twriteSTD, rhwriteSTD, &    !pour calcul_STDlev.h
-       
+       ! 
        beta_prec,  &
        rneb,  &
@@ -213 +212 @@
     USE phys_state_var_mod ! Variables sauvegardees de la physique
 #ifdef CPP_Dust
-  USE phys_output_write_spl_mod
+    USE phys_output_write_spl_mod
 #else
     USE phys_output_var_mod ! Variables pour les ecritures des sorties
@@ -222 +221 @@
     USE phys_output_mod
     USE phys_output_ctrlout_mod
-    use open_climoz_m, only: open_climoz ! ozone climatology from a file
-    use regr_pr_time_av_m, only: regr_pr_time_av
-    use netcdf95, only: nf95_close
+    USE open_climoz_m, only: open_climoz ! ozone climatology from a file
+    USE regr_pr_time_av_m, only: regr_pr_time_av
+    USE netcdf95, only: nf95_close
     !IM for NMC files
-    !     use netcdf, only: nf90_fill_real
-    use netcdf, only: nf90_fill_real
-    use mod_phys_lmdz_mpi_data, only: is_mpi_root
+    USE netcdf, only: nf90_fill_real
+    USE mod_phys_lmdz_mpi_data, only: is_mpi_root
     USE aero_mod
-    use ozonecm_m, only: ozonecm ! ozone of J.-F. Royer
-    use conf_phys_m, only: conf_phys
-    use radlwsw_m, only: radlwsw
-    use phyaqua_mod, only: zenang_an
+    USE ozonecm_m, only: ozonecm ! ozone of J.-F. Royer
+    USE conf_phys_m, only: conf_phys
+    USE radlwsw_m, only: radlwsw
+    USE phyaqua_mod, only: zenang_an
     USE time_phylmdz_mod, only: day_step_phy, annee_ref, day_ref, itau_phy, &
          start_time, pdtphys, day_ini
@@ -246 +244 @@
     USE indice_sol_mod
     USE phytrac_mod, ONLY : phytrac
+    USE carbon_cycle_mod, ONLY : infocfields_init
 
 #ifdef CPP_RRTM
@@ -263 +262 @@
     !IM stations CFMIP
     USE CFMIP_point_locations
-    use FLOTT_GWD_rando_m, only: FLOTT_GWD_rando
-    use ACAMA_GWD_rando_m, only: ACAMA_GWD_rando
+    USE FLOTT_GWD_rando_m, only: FLOTT_GWD_rando
+    USE ACAMA_GWD_rando_m, only: ACAMA_GWD_rando
     USE VERTICAL_LAYERS_MOD, ONLY: aps,bps
 
-
-    IMPLICIT none
+    IMPLICIT NONE
     !>======================================================================
     !!
@@ -1305 +1303 @@
        nvm_lmdz = 13
        CALL getin_p('NVM',nvm_lmdz)
+
+       !--PC: defining fields to be exchanged between LMDz, ORCHIDEE and NEMO
+       WRITE(lunout,*) 'Call to infocfields from physiq'
+       CALL infocfields_init
+
     ENDIF
 
     IF (prt_level.ge.1) print *,'CONVERGENCE PHYSIQUE THERM 1 '
-
 
     !======================================================================