| 88 | | * dynzon désactivé par défaut. Coût CPU ~7% en plus. Pour l'activer utilisez (depuis le 26 Mars 2008) le parametre ok_dynzon. Auparavant : ayez ces lignes dans dyn3dpar/leapfrog_p.F : |
| 89 | | {{{ |
| 90 | | 1278 #ifdef CPP_IOIPSL |
| 91 | | 1279 call Register_Hallo(vcov,ip1jm,llm,1,0,0,1,TestRequest) |
| 92 | | 1280 call SendRequest(TestRequest) |
| 93 | | 1281 c$OMP BARRIER |
| 94 | | 1282 call WaitRequest(TestRequest) |
| 95 | | 1283 c$OMP MASTER |
| 96 | | 1284 c CALL writedynav_p(histaveid, nqmx, itau,vcov , |
| 97 | | 1285 c , ucov,teta,pk,phi,q,masse,ps,phis) |
| 98 | | 1286 c$OMP END MASTER |
| 99 | | 1287 call bilan_dyn_p(2,dtvr*iperiod,dtvr*day_step*periodav, |
| 100 | | 1288 , ps,masse,pk,pbaru,pbarv,teta,phi,ucov,vcov,q) |
| 101 | | 1289 #endif |
| 102 | | }}} |
| 103 | | {{{ |
| 104 | | 1431 #ifdef CPP_IOIPSL |
| 105 | | 1432 c$OMP BARRIER |
| 106 | | 1433 |
| 107 | | 1434 call Register_Hallo(vcov,ip1jm,llm,1,0,0,1,TestRequest) |
| 108 | | 1435 call SendRequest(TestRequest) |
| 109 | | 1436 c$OMP BARRIER |
| 110 | | 1437 call WaitRequest(TestRequest) |
| 111 | | 1438 |
| 112 | | 1439 c$OMP MASTER |
| 113 | | 1440 c CALL writedynav_p(histaveid, nqmx, itau,vcov , |
| 114 | | 1441 c , ucov,teta,pk,phi,q,masse,ps,phis) |
| 115 | | 1442 call bilan_dyn_p (2,dtvr*iperiod,dtvr*day_step*periodav, |
| 116 | | 1443 , ps,masse,pk,pbaru,pbarv,teta,phi,ucov,vcov,q) |
| 117 | | 1444 c$OMP END MASTER |
| 118 | | 1445 #endif |
| 119 | | 1446 ENDIF |
| 120 | | }}} |
| | 88 | * dynzon désactivé par défaut. Coût CPU ~7% en plus. Pour l'activer utilisez (depuis le 26 Mars 2008) le parametre ok_dynzon. |
