Changeset 5267 for LMDZ6/trunk/libf/dyn3d/leapfrog.F90
- Timestamp:
- Oct 23, 2024, 5:34:46 PM (2 days ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3d/leapfrog.F90
r5250 r5267 8 8 9 9 !IM : pour sortir les param. du modele dans un fis. netcdf 110106 10 #ifdef CPP_IOIPSL11 10 use IOIPSL 12 #endif13 11 USE infotrac, ONLY: nqtot, isoCheck 14 12 USE guide_mod, ONLY : guide_main … … 241 239 call check_isotopes_seq(q,ip1jmp1,'leapfrog 321') 242 240 243 #ifdef CPP_IOIPSL244 241 if (ok_guide) then 245 242 call guide_main(itau,ucov,vcov,teta,q,masse,ps) 246 243 endif 247 #endif 244 248 245 249 246 … … 355 352 !maf stokage du flux de masse pour traceurs OFF-LINE 356 353 357 #ifdef CPP_IOIPSL358 354 CALL fluxstokenc(pbaru,pbarv,masse,teta,phi,phis, & 359 355 dtvr, itau) 360 #endif 356 361 357 362 358 … … 451 447 ENDIF ! of IF (ip_ebil_dyn.ge.1 ) 452 448 !-jld 453 #ifdef CPP_IOIPSL 449 454 450 !IM decommenter les 6 lignes suivantes pour sortir quelques parametres dynamiques de LMDZ 455 451 !IM uncomment next 6 lines to get some parameters for LMDZ dynamics … … 460 456 ! 461 457 !#include "write_paramLMDZ_dyn.h" 462 ! 463 #endif 464 ! #endif of #ifdef CPP_IOIPSL 458 465 459 IF (CPPKEY_PHYS) THEN 466 460 CALL calfis( lafin , jD_cur, jH_cur, & … … 675 669 676 670 IF (ok_dynzon) THEN 677 #ifdef CPP_IOIPSL678 671 CALL bilan_dyn(2,dtvr*iperiod,dtvr*day_step*periodav, & 679 672 ps,masse,pk,pbaru,pbarv,teta,phi,ucov,vcov,q) 680 #endif 673 681 674 END IF 682 675 IF (ok_dyn_ave) THEN 683 #ifdef CPP_IOIPSL684 676 CALL writedynav(itau,vcov, & 685 677 ucov,teta,pk,phi,q,masse,ps,phis) 686 #endif 678 687 679 ENDIF 688 680 … … 704 696 vnat(:,l)=vcov(:,l)/cv(:) 705 697 enddo 706 #ifdef CPP_IOIPSL707 698 if (ok_dyn_ins) then 708 699 ! write(lunout,*) "leapfrog: call writehist, itau=",itau … … 714 705 ! call WriteField('masse',reshape(masse,(/iip1,jmp1,llm/))) 715 706 endif ! of if (ok_dyn_ins) 716 #endif 707 717 708 ! For some Grads outputs of fields 718 709 if (output_grads_dyn) then … … 812 803 813 804 IF (ok_dynzon) THEN 814 #ifdef CPP_IOIPSL815 805 CALL bilan_dyn(2,dtvr*iperiod,dtvr*day_step*periodav, & 816 806 ps,masse,pk,pbaru,pbarv,teta,phi,ucov,vcov,q) 817 #endif 807 818 808 ENDIF 819 809 IF (ok_dyn_ave) THEN 820 #ifdef CPP_IOIPSL821 810 CALL writedynav(itau,vcov, & 822 811 ucov,teta,pk,phi,q,masse,ps,phis) 823 #endif 812 824 813 ENDIF 825 814 … … 834 823 vnat(:,l)=vcov(:,l)/cv(:) 835 824 enddo 836 #ifdef CPP_IOIPSL837 825 if (ok_dyn_ins) then 838 826 ! write(lunout,*) "leapfrog: call writehist (b)", … … 840 828 CALL writehist(itau,vcov,ucov,teta,phi,q,masse,ps,phis) 841 829 endif ! of if (ok_dyn_ins) 842 #endif 830 843 831 ! For some Grads outputs 844 832 if (output_grads_dyn) then
Note: See TracChangeset
for help on using the changeset viewer.