Changeset 704 for LMDZ4/branches/V3_test/libf/phylmd/histo_o500_pctau.F

Timestamp:

Aug 17, 2006, 5:41:51 PM (18 years ago)

Author:

Laurent Fairhead

Message:

Inclusion des modifs de Y. Meurdesoif pour la version V3
LF

File:

• LMDZ4/branches/V3_test/libf/phylmd/histo_o500_pctau.F (modified) (1 diff)

LMDZ4/branches/V3_test/libf/phylmd/histo_o500_pctau.F

@@ -3 +3 @@
 !
       SUBROUTINE histo_o500_pctau(nbreg,pct_ocean,w,histo,histoW,nhisto)
+      USE dimphy
       IMPLICIT none
 
       INTEGER :: ij, k, l, nw
       INTEGER :: nreg, nbreg
-#include "dimensions.h"
-#include "dimphy.h"
+cym#include "dimensions.h"
+cym#include "dimphy.h"
       INTEGER, PARAMETER :: kmax=8, lmax=8
       INTEGER, PARAMETER :: kmaxm1=kmax-1, lmaxm1=lmax-1