- Timestamp:
- Apr 14, 2010, 10:55:22 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/phys_state_var_mod.F90
r1322 r1350 11 11 USE dimphy 12 12 INTEGER, PARAMETER :: nlevSTD=17 13 INTEGER, PARAMETER :: nlevSTD8=8 14 INTEGER, PARAMETER :: nlevSTD3=3 13 15 INTEGER, PARAMETER :: nout=3 14 16 INTEGER, PARAMETER :: napisccp=1 15 17 INTEGER, SAVE :: radpas 18 !$OMP THREADPRIVATE(radpas) 16 19 REAL, SAVE :: dtime, solaire_etat0 17 !$OMP THREADPRIVATE(radpas)18 20 !$OMP THREADPRIVATE(dtime, solaire_etat0) 19 21 … … 118 120 REAL,ALLOCATABLE,SAVE :: T2sumSTD(:,:,:) 119 121 !$OMP THREADPRIVATE(T2sumSTD) 122 !IM begin 123 REAL,ALLOCATABLE,SAVE :: wlevSTD(:,:), ulevSTD(:,:), vlevSTD(:,:) 124 REAL,ALLOCATABLE,SAVE :: tlevSTD(:,:), qlevSTD(:,:), rhlevSTD(:,:) 125 REAL,ALLOCATABLE,SAVE :: philevSTD(:,:) 126 REAL,ALLOCATABLE,SAVE :: uvSTD(:,:) 127 REAL,ALLOCATABLE,SAVE :: vqSTD(:,:) 128 REAL,ALLOCATABLE,SAVE :: vTSTD(:,:) 129 REAL,ALLOCATABLE,SAVE :: wqSTD(:,:) 130 REAL,ALLOCATABLE,SAVE :: vphiSTD(:,:) 131 REAL,ALLOCATABLE,SAVE :: wTSTD(:,:) 132 REAL,ALLOCATABLE,SAVE :: u2STD(:,:) 133 REAL,ALLOCATABLE,SAVE :: v2STD(:,:) 134 REAL,ALLOCATABLE,SAVE :: T2STD(:,:) 135 !IM end 120 136 INTEGER,ALLOCATABLE,SAVE :: seed_old(:,:) 121 137 !$OMP THREADPRIVATE(seed_old) … … 357 373 ALLOCATE(v2sumSTD(klon,nlevSTD,nout)) 358 374 ALLOCATE(T2sumSTD(klon,nlevSTD,nout)) 375 !IM beg 376 ALLOCATE(wlevSTD(klon,nlevSTD), ulevSTD(klon,nlevSTD), vlevSTD(klon,nlevSTD)) 377 ALLOCATE(tlevSTD(klon,nlevSTD), qlevSTD(klon,nlevSTD), rhlevSTD(klon,nlevSTD)) 378 ALLOCATE(philevSTD(klon,nlevSTD)) 379 ALLOCATE(uvSTD(klon,nlevSTD),vqSTD(klon,nlevSTD)) 380 ALLOCATE(vTSTD(klon,nlevSTD),wqSTD(klon,nlevSTD)) 381 ALLOCATE(vphiSTD(klon,nlevSTD),wTSTD(klon,nlevSTD)) 382 ALLOCATE(u2STD(klon,nlevSTD),v2STD(klon,nlevSTD)) 383 ALLOCATE(T2STD(klon,nlevSTD)) 384 !IM end 359 385 ALLOCATE(seed_old(klon,napisccp)) 360 386 ALLOCATE(zuthe(klon),zvthe(klon)) … … 459 485 deallocate(v2sumSTD) 460 486 deallocate(T2sumSTD) 487 !IM beg 488 deallocate(wlevSTD,ulevSTD,vlevSTD,tlevSTD,qlevSTD,rhlevSTD,philevSTD) 489 deallocate(uvSTD,vqSTD,vTSTD,wqSTD,vphiSTD,wTSTD,u2STD,v2STD,T2STD) 490 !IM end 461 491 deallocate(seed_old) 462 492 deallocate(zuthe, zvthe)
Note: See TracChangeset
for help on using the changeset viewer.