Changeset 1058 for trunk/LMDZ.TITAN/libf
- Timestamp:
- Oct 9, 2013, 11:56:59 AM (11 years ago)
- Location:
- trunk/LMDZ.TITAN/libf/phytitan
- Files:
-
- 3 edited
-
optci_1pt_3.F (modified) (1 diff)
-
optcv_1pt_3.F (modified) (1 diff)
-
radtitan.F (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.TITAN/libf/phytitan/optci_1pt_3.F
r1056 r1058 237 237 238 238 239 CBAR=CBAR/TAEROSCAT239 if (TAEROSCAT.ne.0.) CBAR=CBAR/TAEROSCAT 240 240 241 241 DELTAZ=Z(J)-Z(J+1) -
trunk/LMDZ.TITAN/libf/phytitan/optcv_1pt_3.F
r1056 r1058 192 192 193 193 194 CBAR=CBAR/TAEROSCAT194 if (TAEROSCAT.ne.0.) CBAR=CBAR/TAEROSCAT 195 195 196 196 DELTAZ=Z(J)-Z(J+1) -
trunk/LMDZ.TITAN/libf/phytitan/radtitan.F
r1056 r1058 111 111 c 1. Initialisations: 112 112 c ------------------- 113 114 REAL xpoub,kkk,xvis,xir115 113 116 114
Note: See TracChangeset
for help on using the changeset viewer.
