Changeset 1201 for LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/calfis_p.F
- Timestamp:
- Jul 7, 2009, 4:01:00 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/calfis_p.F
r1142 r1201 1 1 ! 2 ! $ Header$2 ! $Id$ 3 3 ! 4 4 C 5 5 C 6 6 SUBROUTINE calfis_p(lafin, 7 $ rdayvrai,7 $ jD_cur, jH_cur, 8 8 $ heure, 9 9 $ pucov, … … 209 209 SAVE firstcal,debut 210 210 c$OMP THREADPRIVATE(firstcal,debut) 211 REAL rdayvrai211 REAL :: jD_cur, jH_cur 212 212 213 213 REAL,SAVE,dimension(1:iim,1:llm):: du_send,du_recv,dv_send,dv_recv … … 334 334 c --------------- 335 335 c 336 336 n 337 337 DO iq=1,nqtot 338 338 iiq=niadv(iq) … … 665 665 . debut, 666 666 . lafin, 667 . rdayvrai,668 . heure,667 . jD_cur, 668 . jH_cur, 669 669 . dtphys, 670 670 . zplev_omp,
Note: See TracChangeset
for help on using the changeset viewer.