Changeset 1201 for LMDZ4/branches/LMDZ4-dev/libf/dyn3d/calfis.F
- Timestamp:
- Jul 7, 2009, 4:01:00 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4-dev/libf/dyn3d/calfis.F
r1114 r1201 1 1 ! 2 ! $ Header$2 ! $Id$ 3 3 ! 4 4 C 5 5 C 6 6 SUBROUTINE calfis(lafin, 7 $ rdayvrai, 8 $ heure, 7 $ jD_cur, jH_cur, 9 8 $ pucov, 10 9 $ pvcov, … … 102 101 c ----------- 103 102 LOGICAL lafin 104 REAL heure 103 105 104 106 105 REAL pvcov(iip1,jjm,llm) … … 170 169 DATA firstcal/.true./ 171 170 SAVE firstcal,debut 172 REAL rdayvrai 171 ! REAL rdayvrai 172 REAL :: jD_cur, jH_cur 173 173 c 174 174 c----------------------------------------------------------------------- … … 445 445 . debut, 446 446 . lafin, 447 . rdayvrai,448 . heure,447 . jD_cur, 448 . jH_cur, 449 449 . dtphys, 450 450 . zplev,
Note: See TracChangeset
for help on using the changeset viewer.