Changeset 1143 for LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar
- Timestamp:
- Apr 7, 2009, 6:41:02 PM (15 years ago)
- Location:
- LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/conf_gcm.F
r1140 r1143 556 556 config_inca = 'none' 557 557 CALL getin('config_inca',config_inca) 558 559 !Config Key = ok_dynzon 560 !Config Desc = calcul et sortie des transports 561 !Config Def = n 562 !Config Help = Permet de mettre en route le calcul des transports 563 !Config 564 ok_dynzon = .FALSE. 565 CALL getin('ok_dynzon',ok_dynzon) 558 566 559 567 … … 593 601 write(lunout,*)' offline = ', offline 594 602 write(lunout,*)' config_inca = ', config_inca 603 write(lunout,*)' ok_dynzon = ', ok_dynzon 595 604 596 605 RETURN … … 717 726 config_inca = 'none' 718 727 CALL getin('config_inca',config_inca) 728 729 !Config Key = ok_dynzon 730 !Config Desc = calcul et sortie des transports 731 !Config Def = n 732 !Config Help = Permet de mettre en route le calcul des transports 733 !Config 734 ok_dynzon = .FALSE. 735 CALL getin('ok_dynzon',ok_dynzon) 719 736 720 737 !Config Key = use_filtre_fft … … 807 824 write(lunout,*)' offline = ', offline 808 825 write(lunout,*)' config_inca = ', config_inca 826 write(lunout,*)' ok_dynzon = ', ok_dynzon 809 827 write(lunout,*)' use_filtre_fft = ', use_filtre_fft 810 828 write(lunout,*)' use_mpi_alloc = ', use_mpi_alloc -
LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/control.h
r1140 r1143 15 15 & periodav,iecrimoy,dayref,anneeref, & 16 16 & raz_date,offline,ip_ebil_dyn,config_inca, & 17 & planet_type,output_grads_dyn 17 & planet_type,output_grads_dyn,ok_dynzon 18 18 19 19 INTEGER nday,day_step,iperiod,iapp_tracvl,iconser,iecri, & … … 26 26 LOGICAL :: output_grads_dyn ! output dynamics diagnostics in 27 27 ! binary grads file 'dyn.dat' (y/n) 28 LOGICAL :: ok_dynzon 28 29 !----------------------------------------------------------------------- -
LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/gcm.F
r1140 r1143 427 427 . t_ops, t_wrt, histid, histvid) 428 428 429 t_ops = iperiod * time_step 430 t_wrt = periodav * daysec 431 CALL initdynav_p(dynhistave_file,day_ref,annee_ref,time_step, 432 . t_ops, t_wrt, histaveid) 433 429 IF (ok_dynzon) THEN 430 t_ops = iperiod * time_step 431 t_wrt = periodav * daysec 432 CALL initdynav_p(dynhistave_file,day_ref,annee_ref,time_step, 433 . t_ops, t_wrt, histaveid) 434 END IF 434 435 dtav = iperiod*dtvr/daysec 435 436 endif -
LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/leapfrog_p.F
r1140 r1143 1294 1294 ENDIF 1295 1295 #ifdef CPP_IOIPSL 1296 IF (ok_dynzon) THEN 1296 1297 call Register_Hallo(vcov,ip1jm,llm,1,0,0,1,TestRequest) 1297 1298 call SendRequest(TestRequest) … … 1302 1303 CALL writedynav_p(histaveid, itau,vcov , 1303 1304 , ucov,teta,pk,phi,q,masse,ps,phis) 1304 c$OMP END MASTER 1305 1305 1306 c ATTENTION!!! bilan_dyn_p ne marche probablement pas avec OpenMP 1307 CALL bilan_dyn_p(2,dtvr*iperiod,dtvr*day_step*periodav, 1308 , ps,masse,pk,pbaru,pbarv,teta,phi,ucov,vcov,q) 1309 c$OMP END MASTER 1310 ENDIF !ok_dynzon 1306 1311 #endif 1307 1312 ENDIF … … 1456 1461 ENDIF 1457 1462 #ifdef CPP_IOIPSL 1463 IF (ok_dynzon) THEN 1458 1464 c$OMP BARRIER 1459 1465 … … 1467 1473 CALL writedynav_p(histaveid, itau,vcov , 1468 1474 , ucov,teta,pk,phi,q,masse,ps,phis) 1469 call bilan_dyn_p(2,dtvr*iperiod,dtvr*day_step*periodav,1475 CALL bilan_dyn_p(2,dtvr*iperiod,dtvr*day_step*periodav, 1470 1476 , ps,masse,pk,pbaru,pbarv,teta,phi,ucov,vcov,q) 1471 1477 c$OMP END MASTER 1478 END IF !ok_dynzon 1472 1479 #endif 1473 1480 ENDIF ! of IF(MOD(itau,iperiod).EQ.0 .OR. itau.EQ.itaufin)
Note: See TracChangeset
for help on using the changeset viewer.