Changeset 1446 for LMDZ5/branches/LMDZ5V1.0-dev/libf/dyn3d/leapfrog.F
- Timestamp:
- Oct 22, 2010, 11:27:25 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/branches/LMDZ5V1.0-dev/libf/dyn3d/leapfrog.F
r1437 r1446 209 209 c -------------------------------------------------- 210 210 211 dq =0.211 dq(:,:,:)=0. 212 212 CALL pression ( ip1jmp1, ap, bp, ps, p ) 213 213 CALL exner_hyb( ip1jmp1, ps, p,alpha,beta, pks, pk, pkf ) … … 253 253 CALL SCOPY ( ijp1llm, masse, 1, finvmaold, 1 ) 254 254 CALL filtreg ( finvmaold ,jjp1, llm, -2,2, .TRUE., 1 ) 255 256 ! Ehouarn: what is this for? zqmin & zqmax are not used anyway ...257 ! call minmax(ijp1llm,q(:,:,3),zqmin,zqmax)258 255 259 256 2 CONTINUE … … 632 629 633 630 634 if (planet_type.eq."earth") then631 ! if (planet_type.eq."earth") then 635 632 ! Write an Earth-format restart file 636 633 CALL dynredem1("restart.nc",0.0, 637 634 & vcov,ucov,teta,q,masse,ps) 638 endif ! of if (planet_type.eq."earth")635 ! endif ! of if (planet_type.eq."earth") 639 636 640 637 CLOSE(99) … … 744 741 745 742 IF(itau.EQ.itaufin) THEN 746 if (planet_type.eq."earth") then743 ! if (planet_type.eq."earth") then 747 744 CALL dynredem1("restart.nc",0.0, 748 745 & vcov,ucov,teta,q,masse,ps) 749 endif ! of if (planet_type.eq."earth")746 ! endif ! of if (planet_type.eq."earth") 750 747 ENDIF ! of IF(itau.EQ.itaufin) 751 748
Note: See TracChangeset
for help on using the changeset viewer.