Changeset 3356 for LMDZ6/branches/DYNAMICO-conv/libf/phylmd/yamada4.F90
- Timestamp:
- Jun 29, 2018, 12:31:11 PM (6 years ago)
- Location:
- LMDZ6/branches/DYNAMICO-conv
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/DYNAMICO-conv
- Property svn:mergeinfo changed
-
LMDZ6/branches/DYNAMICO-conv/libf/phylmd/yamada4.F90
r3312 r3356 117 117 REAL aa(klon, klev+1), aa0, aa1 118 118 INTEGER nlay, nlev 119 LOGICAL first 120 INTEGER ipas 121 SAVE first, ipas 122 ! FH/IM data first,ipas/.true.,0/ 123 DATA first, ipas/.FALSE., 0/ 124 !$OMP THREADPRIVATE( first,ipas) 119 125 120 LOGICAL,SAVE :: hboville=.TRUE. 126 121 REAL,SAVE :: viscom,viscoh … … 136 131 INTEGER iter 137 132 REAL dissip(klon,klev), tkeprov,tkeexp, shear(klon,klev), buoy(klon,klev) 133 REAL :: disseff 134 138 135 REAL,SAVE :: ric0,ric,rifc, b1, kap 139 136 !$OMP THREADPRIVATE(ric0,ric,rifc,b1,kap) … … 147 144 !$OMP THREADPRIVATE(new_yamada4,yamada4_num) 148 145 REAL, SAVE :: yun,ydeux 149 REAL :: disseff150 146 !$OMP THREADPRIVATE(yun,ydeux) 147 151 148 REAL frif, falpha, fsm 152 149 REAL rino(klon, klev+1), smyam(klon, klev), styam(klon, klev), & … … 225 222 nlay = klev 226 223 nlev = klev + 1 227 ipas = ipas + 1228 224 229 225 … … 659 655 660 656 ! Ajout d'une viscosite moleculaire 661 km( :,:)=km(:,:)+viscom662 kn( :,:)=kn(:,:)+viscoh663 kq( :,:)=kq(:,:)+viscoh657 km(1:ngrid,2:klev)=km(1:ngrid,2:klev)+viscom 658 kn(1:ngrid,2:klev)=kn(1:ngrid,2:klev)+viscoh 659 kq(1:ngrid,2:klev)=kq(1:ngrid,2:klev)+viscoh 664 660 665 661 IF (prt_level>1) THEN … … 725 721 !============================================================================ 726 722 727 first = .FALSE.728 723 RETURN 729 724 … … 974 969 REAL hlim(klon) 975 970 REAL, SAVE :: kap=0.4,kapb=0.4 971 !$OMP THREADPRIVATE(kap,kapb) 976 972 REAL zq 977 973 REAL sq(klon), sqz(klon)
Note: See TracChangeset
for help on using the changeset viewer.