Changeset 775
- Timestamp:
- Sep 6, 2012, 4:14:51 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.GENERIC/libf/phystd/physiq.F90
r773 r775 645 645 ! ztim3=-COS(declin)*SIN(2.*pi*(zday/year_day) - zls*nres) 646 646 ! JL12 corrects tidally resonant cases. nres=omega_rot/omega_orb 647 ztim2=COS(declin)*COS(2.*pi*(zday/year_day)* (nres-1.))648 ztim3=-COS(declin)*SIN(2.*pi*(zday/year_day)* (nres-1.))647 ztim2=COS(declin)*COS(2.*pi*(zday/year_day)*nres - zls) 648 ztim3=-COS(declin)*SIN(2.*pi*(zday/year_day)*nres - zls) 649 649 650 650 call stelang(ngrid,sinlon,coslon,sinlat,coslat, &
Note: See TracChangeset
for help on using the changeset viewer.