Changeset 264 for codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf
- Timestamp:
- 07/31/14 16:38:47 (10 years ago)
- Location:
- codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/dyn3dpar/gcm.F
r227 r264 563 563 t_ops =((1.0*iecri)/day_step) * daysec 564 564 t_wrt = daysec ! iecri * daysec ! write output every t_wrt 565 CALL inithist(day_ref,annee_ref,time_step,566 & t_ops,t_wrt)565 ! CALL inithist(day_ref,annee_ref,time_step, 566 ! & t_ops,t_wrt) 567 567 endif 568 568 … … 571 571 t_ops = iperiod * time_step ! do operations every t_ops 572 572 t_wrt = periodav * daysec ! write output every t_wrt 573 CALL initdynav(day_ref,annee_ref,time_step,574 & t_ops,t_wrt)573 ! CALL initdynav(day_ref,annee_ref,time_step, 574 ! & t_ops,t_wrt) 575 575 ! CALL initdynav_p(dynhistave_file,day_ref,annee_ref,time_step, 576 576 ! . t_ops, t_wrt, histaveid) -
codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/dyn3dpar/init_gcm_lmdz.F
r245 r264 5 5 c 6 6 SUBROUTINE init_gcm_lmdz(nbp,nproc,distrib_icosa,latfi,lonfi, 7 & airefi) 7 & airefi) 8 ! & airefi,day_length) 8 9 9 10 #ifdef CPP_IOIPSL … … 47 48 REAL, INTENT(IN) :: lonfi(nbp) 48 49 REAL, INTENT(IN) :: airefi(nbp) 50 ! INTEGER, INTENT(IN) :: day_length 49 51 50 52 REAL :: zcufi(nbp) … … 515 517 ! zcvfi(nbp)=1. 516 518 519 ! PRINT*,'daysec=',daysec 520 ! PRINT*,'day_length=',day_length 521 ! IF (daysec /= day_length) THEN 522 ! PRINT*,'daysec different de day_length' 523 ! daysec=day_length 524 ! ENDIF 525 517 526 ! CALL iniphysiq(klon_glo,llm,daysec,day_ini,dtphys/nsplit_phys, 518 527 ! & latfi,lonfi,airefi,zcufi,zcvfi,rad,g,r,cpp, … … 588 597 t_ops =((1.0*iecri)/day_step) * daysec 589 598 t_wrt = daysec ! iecri * daysec ! write output every t_wrt 590 CALL inithist(day_ref,annee_ref,time_step,591 & t_ops,t_wrt)599 ! CALL inithist(day_ref,annee_ref,time_step, 600 ! & t_ops,t_wrt) 592 601 endif 593 602 … … 596 605 t_ops = iperiod * time_step ! do operations every t_ops 597 606 t_wrt = periodav * daysec ! write output every t_wrt 598 CALL initdynav(day_ref,annee_ref,time_step,599 & t_ops,t_wrt)607 ! CALL initdynav(day_ref,annee_ref,time_step, 608 ! & t_ops,t_wrt) 600 609 ! CALL initdynav_p(dynhistave_file,day_ref,annee_ref,time_step, 601 610 ! . t_ops, t_wrt, histaveid) -
codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/mod_phys_lmdz_para.F90
r245 r264 34 34 is_master=.FALSE. 35 35 ENDIF 36 CALL Test_transfert36 !CALL Test_transfert 37 37 !$OMP END PARALLEL 38 38 IF (is_using_mpi .OR. is_using_omp) THEN
Note: See TracChangeset
for help on using the changeset viewer.