Changeset 1707 for LMDZ5/branches/testing/libf/phy1d
- Timestamp:
- Jan 11, 2013, 10:19:19 AM (12 years ago)
- Location:
- LMDZ5/branches/testing
- Files:
-
- 5 edited
-
. (modified) (1 prop)
-
libf/phy1d/1DUTILS.h_no_writelim (modified) (1 diff)
-
libf/phy1d/1DUTILS.h_with_writelim (modified) (1 diff)
-
libf/phy1d/1DUTILS.h_with_writelim_old (modified) (1 diff)
-
libf/phy1d/lmdz1d.F (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/branches/testing
- Property svn:mergeinfo changed
/LMDZ5/trunk merged: 1670-1692,1694-1703,1705-1706
- Property svn:mergeinfo changed
-
LMDZ5/branches/testing/libf/phy1d/1DUTILS.h_no_writelim
r1665 r1707 52 52 !Config (defaut sortie standard = 6) 53 53 lunout=6 54 CALL getin('lunout', lunout)54 ! CALL getin('lunout', lunout) 55 55 IF (lunout /= 5 .and. lunout /= 6) THEN 56 56 OPEN(lunout,FILE='lmdz.out') -
LMDZ5/branches/testing/libf/phy1d/1DUTILS.h_with_writelim
r1665 r1707 52 52 !Config (defaut sortie standard = 6) 53 53 lunout=6 54 CALL getin('lunout', lunout)54 ! CALL getin('lunout', lunout) 55 55 IF (lunout /= 5 .and. lunout /= 6) THEN 56 56 OPEN(lunout,FILE='lmdz.out') -
LMDZ5/branches/testing/libf/phy1d/1DUTILS.h_with_writelim_old
r1665 r1707 52 52 !Config (defaut sortie standard = 6) 53 53 lunout=6 54 CALL getin('lunout', lunout)54 ! CALL getin('lunout', lunout) 55 55 IF (lunout /= 5 .and. lunout /= 6) THEN 56 56 OPEN(lunout,FILE='lmdz.out') -
LMDZ5/branches/testing/libf/phy1d/lmdz1d.F
r1669 r1707 711 711 !--------------------------------------------------------------------- 712 712 713 fcoriolis=2.*sin(rpi* rlat(1)/180.)*romega713 fcoriolis=2.*sin(rpi*xlat/180.)*romega 714 714 715 715 if (forcing_radconv) then
Note: See TracChangeset
for help on using the changeset viewer.
