Changeset 2985 for trunk/LMDZ.GENERIC/libf

Timestamp:

Jun 28, 2023, 4:05:56 PM (18 months ago)

Author:

romain.vande

Message:

Generic PEM :

Adapt PEM to run with the generic model.
(CPP_STD keyword to exclude some part of the code at the compilation)

RV

File:

• trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90 (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90

@@ -2695 +2695 @@
          CALL send_xios_field('h2o_vap',zq(:,:,igcm_h2o_vap))
          CALL send_xios_field('h2o_ice',zq(:,:,igcm_h2o_ice))
+
+         CALL send_xios_field('h2o_layer1',zq(:,1,igcm_h2o_vap))
+         CALL send_xios_field('co2_layer1',zq(:,1,igcm_co2_ice))
+         CALL send_xios_field('tsurf',tsurf)
+         CALL send_xios_field('co2ice',qsurf(1:ngrid,igcm_co2_ice))
+         CALL send_xios_field('h2o_ice_s',qsurf(1:ngrid,igcm_h2o_ice))
       ENDIF