Changeset 1114 for LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/writehist_p.F
- Timestamp:
- Mar 3, 2009, 5:40:26 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/writehist_p.F
r1000 r1114 2 2 ! $Header$ 3 3 ! 4 subroutine writehist_p( histid, histvid, nq,time, vcov,4 subroutine writehist_p( histid, histvid, time, vcov, 5 5 , ucov,teta,phi,q,masse,ps,phis) 6 6 … … 8 8 USE parallel 9 9 USE misc_mod 10 USE infotrac 10 11 implicit none 11 12 … … 18 19 C histid: ID du fichier histoire 19 20 C histvid:ID du fichier histoire pour les vents V (appele a disparaitre) 20 C nqmx: nombre maxi de traceurs21 21 C time: temps de l'ecriture 22 22 C vcov: vents v covariants … … 48 48 #include "description.h" 49 49 #include "serre.h" 50 #include "advtrac.h"51 50 52 51 C … … 54 53 C 55 54 56 INTEGER histid, nq,histvid55 INTEGER histid, histvid 57 56 REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm) 58 57 REAL teta(ip1jmp1,llm),phi(ip1jmp1,llm) 59 58 REAL ps(ip1jmp1),masse(ip1jmp1,llm) 60 59 REAL phis(ip1jmp1) 61 REAL q(ip1jmp1,llm,nq )60 REAL q(ip1jmp1,llm,nqtot) 62 61 integer time 63 62 … … 119 118 C Traceurs 120 119 C 121 DO iq=1,nq 120 DO iq=1,nqtot 122 121 call histwrite(histid, ttext(iq), itau_w, q(ijb:ije,:,iq), 123 122 . iip1*jjn*llm, ndexu)
Note: See TracChangeset
for help on using the changeset viewer.