Changeset 2239 for LMDZ5/trunk/libf/dyn3d
- Timestamp:
- Mar 23, 2015, 8:27:30 AM (10 years ago)
- Location:
- LMDZ5/trunk/libf/dyn3d
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dyn3d/advtrac.F90
r1987 r2239 79 79 80 80 IF(iadvtr.EQ.0) THEN 81 CALL initial0(ijp1llm,pbaruc)82 CALL initial0(ijmllm,pbarvc)81 pbaruc(:,:)=0 82 pbarvc(:,:)=0 83 83 ENDIF 84 84 -
LMDZ5/trunk/libf/dyn3d/fluxstokenc.F
r1907 r2239 83 83 84 84 IF(iadvtr.EQ.0) THEN 85 CALL initial0(ijp1llm,phic)86 CALL initial0(ijp1llm,tetac)87 CALL initial0(ijp1llm,pbaruc)88 CALL initial0(ijmllm,pbarvc)85 phic(:,:)=0 86 tetac(:,:)=0 87 pbaruc(:,:)=0 88 pbarvc(:,:)=0 89 89 ENDIF 90 90 -
LMDZ5/trunk/libf/dyn3d/leapfrog.F
r2221 r2239 437 437 #endif 438 438 ! #endif of #ifdef CPP_IOIPSL 439 #ifdef CPP_PHYS 439 440 CALL calfis( lafin , jD_cur, jH_cur, 440 441 $ ucov,vcov,teta,q,masse,ps,p,pk,phis,phi , 441 442 $ du,dv,dteta,dq, 442 443 $ flxw,dufi,dvfi,dtetafi,dqfi,dpfi ) 443 444 #endif 444 445 c ajout des tendances physiques: 445 446 c ------------------------------
Note: See TracChangeset
for help on using the changeset viewer.