Changeset 2429 for LMDZ5/trunk/libf/phylmd/atm2geo.F90
- Timestamp:
- Jan 27, 2016, 1:43:09 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/atm2geo.F90
-
Property
svn:keywords
changed from
Author Date Id Revision
toId
r2346 r2429 1 1 ! 2 ! $ Header$2 ! $Id$ 3 3 ! 4 4 SUBROUTINE atm2geo ( im, jm, pte, ptn, plon, plat, pxx, pyy, pzz ) … … 32 32 33 33 ! Value at North Pole 34 IF (is_north_pole ) THEN34 IF (is_north_pole_dyn) THEN 35 35 pxx(:, 1) = - pte (1, 1) 36 36 pyy(:, 1) = - ptn (1, 1) … … 39 39 40 40 ! Value at South Pole 41 IF (is_south_pole ) THEN41 IF (is_south_pole_dyn) THEN 42 42 pxx(:,jm) = pxx(1,jm) 43 43 pyy(:,jm) = pyy(1,jm) -
Property
svn:keywords
changed from
Note: See TracChangeset
for help on using the changeset viewer.