- Timestamp:
- 07/30/12 19:01:07 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/caldyn_gcm.f90
r52 r53 235 235 !$OMP BARRIER 236 236 !$OMP MASTER 237 IF (first) THEN237 ! IF (first) THEN 238 238 ALLOCATE(theta(iim*jjm,llm)) ! potential temperature 239 239 ALLOCATE(p(iim*jjm,llm+1)) ! pression … … 251 251 ALLOCATE(qv(2*iim*jjm,llm)) ! potential velocity 252 252 ALLOCATE(berni(iim*jjm,llm)) ! bernouilli term 253 first=.FALSE.254 ENDIF253 ! first=.FALSE. 254 ! ENDIF 255 255 !$OMP END MASTER 256 256 !$OMP BARRIER … … 659 659 !!$OMP BARRIER 660 660 !!$OMP MASTER 661 !DEALLOCATE(theta) ! potential temperature662 !DEALLOCATE(p) ! pression663 !DEALLOCATE(pk) ! Exner function664 !DEALLOCATE(pks)665 !DEALLOCATE(alpha)666 !DEALLOCATE(beta)667 !DEALLOCATE(phi) ! geopotential668 !DEALLOCATE(mass) ! mass669 !DEALLOCATE(rhodz) ! mass density670 !DEALLOCATE(Fe) ! mass flux671 !DEALLOCATE(Ftheta) ! theta flux672 !DEALLOCATE(convm) ! mass flux convergence673 !DEALLOCATE(w) ! vertical velocity674 !DEALLOCATE(qv) ! potential velocity675 !DEALLOCATE(berni) ! bernouilli term661 DEALLOCATE(theta) ! potential temperature 662 DEALLOCATE(p) ! pression 663 DEALLOCATE(pk) ! Exner function 664 DEALLOCATE(pks) 665 DEALLOCATE(alpha) 666 DEALLOCATE(beta) 667 DEALLOCATE(phi) ! geopotential 668 DEALLOCATE(mass) ! mass 669 DEALLOCATE(rhodz) ! mass density 670 DEALLOCATE(Fe) ! mass flux 671 DEALLOCATE(Ftheta) ! theta flux 672 DEALLOCATE(convm) ! mass flux convergence 673 DEALLOCATE(w) ! vertical velocity 674 DEALLOCATE(qv) ! potential velocity 675 DEALLOCATE(berni) ! bernouilli term 676 676 !!$OMP END MASTER 677 677 !!$OMP BARRIER
Note: See TracChangeset
for help on using the changeset viewer.