Changeset 1828 for LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90

Timestamp:

Aug 6, 2013, 6:06:40 PM (11 years ago)

Author:

idelkadi

Message:

Gestion des fichiers de sorties sur les niveaux de pression NMC (hist*NMC.nc) via le meme mecanisme utilise pour les fichiers histoires (phys_output_mod, ...)
Ces sorties sont ainsi controles par les memes flags : phys_out_filekeys, phys_out_filenames, phys_out_filetimesteps, phys_out_filelevels, ...
(exemple dans config.def : phys_out_filenames=histmth histday histhf histins histLES histstn histmthNMC histdayNMC histhfNMC)

File:

• LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -253 +253 @@
       REAL,ALLOCATABLE,SAVE,DIMENSION(:,:,:) :: uwriteSTD, vwriteSTD, wwriteSTD
 !$OMP THREADPRIVATE(uwriteSTD, vwriteSTD, wwriteSTD)
-      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:,:) :: phiwriteSTD, qwriteSTD, twriteSTD
-!$OMP THREADPRIVATE(phiwriteSTD, qwriteSTD, twriteSTD)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:,:) :: phiwriteSTD, qwriteSTD, twriteSTD, rhwriteSTD
+!$OMP THREADPRIVATE(phiwriteSTD, qwriteSTD, twriteSTD, rhwriteSTD)
 
 ! ug et d'autres encore:
@@ -406 +406 @@
       ALLOCATE(wwriteSTD(klon,nlevSTD,nfiles), phiwriteSTD(klon,nlevSTD,nfiles))
       ALLOCATE(qwriteSTD(klon,nlevSTD,nfiles), twriteSTD(klon,nlevSTD,nfiles))
+      ALLOCATE(rhwriteSTD(klon,nlevSTD,nfiles))
 
 ! ug et d'autres encore:
@@ -547 +548 @@
       DEALLOCATE(uwriteSTD, vwriteSTD)
       DEALLOCATE(wwriteSTD, phiwriteSTD)
-      DEALLOCATE(qwriteSTD, twriteSTD)
+      DEALLOCATE(qwriteSTD, twriteSTD, rhwriteSTD)
 
 ! ug et d'autres encore: