Changeset 1798 for LMDZ5/trunk/libf/phylmd

Timestamp:

Jul 18, 2013, 4:35:00 PM (11 years ago)

Author:

Ehouarn Millour

Message:

Création d'un module phys_output_write_mod en remplacement de phys_output_write_new.h.
UG
.............................
Turning phys_output_write_new.h into a module named phys_output_write_mod.
UG

Location:

LMDZ5/trunk/libf/phylmd

Files:

• phys_output_write_F90.h (added)
• phys_output_write_mod.F90 (added)
• phys_output_write_new.h (deleted)
• physiq.F (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/physiq.F

@@ -29 +29 @@
       USE phys_state_var_mod ! Variables sauvegardees de la physique
       USE phys_output_var_mod ! Variables pour les ecritures des sorties
+      USE phys_output_write_mod
       USE fonte_neige_mod, ONLY  : fonte_neige_get_vars
       USE phys_output_mod
@@ -3941 +3942 @@
       endif
 
-#include "phys_output_write_new.h"
+
+!On effectue les sorties:
+
+      CALL phys_output_write(itap, pdtphys, paprs, pphis,               &
+     &                  pplay, lmax_th, aerosol_couple,                 &
+     &                  ok_ade, ok_aie, ivap, new_aod, ok_sync,         &
+     &                  ptconv, read_climoz, clevSTD, ptconvth,         &
+     &                  d_t, qx, d_qx, zmasse, flag_aerosol_strat)