Changeset 1717 for LMDZ4/branches/LMDZ4_AR5/libf/dyn3dpar/leapfrog_p.F
- Timestamp:
- Jan 25, 2013, 9:26:03 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4_AR5/libf/dyn3dpar/leapfrog_p.F
r1451 r1717 75 75 76 76 real zqmin,zqmax 77 INTEGER nbetatmoy, nbetatdem,nbetat77 ! INTEGER nbetatmoy, nbetatdem,nbetat 78 78 79 79 c variables dynamiques … … 1348 1348 c$OMP BARRIER 1349 1349 c$OMP MASTER 1350 nbetat = nbetatdem1350 ! nbetat = nbetatdem 1351 1351 CALL geopot_p(ip1jmp1,teta,pk,pks,phis,phi) 1352 1352 … … 1510 1510 c$OMP BARRIER 1511 1511 c$OMP MASTER 1512 nbetat = nbetatdem1512 ! nbetat = nbetatdem 1513 1513 CALL geopot_p(ip1jmp1,teta,pk,pks,phis,phi) 1514 1514
Note: See TracChangeset
for help on using the changeset viewer.