Ignore:
Timestamp:
Mar 26, 2008, 2:06:32 PM (16 years ago)
Author:
Laurent Fairhead
Message:

Rajout ok_dynzon pour faire ou non les sorties bilan
LF

Location:
LMDZ4/branches/LMDZ4_V3_patches/libf
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4_V3_patches/libf/dyn3d/conf_gcm.F

    r844 r935  
    593593       offline = .FALSE.
    594594       CALL getin('offline',offline)
     595
     596!Config  Key  = ok_dynzon
     597!Config  Desc = calcul et sortie des transports
     598!Config  Def  = n
     599!Config  Help = Permet de mettre en route le calcul des transports
     600!Config         
     601       ok_dynzon = .FALSE.
     602       CALL getin('ok_dynzon',ok_dynzon)
    595603
    596604
    … …  
    636644      write(lunout,*)' tauyy = ', tauyy
    637645      write(lunout,*)' offline = ', offline
     646      write(lunout,*)' ok_dynzon = ', ok_dynzon
    638647
    639648      RETURN
    … …  
    750759      write(lunout,*)' offline = ', offline
    751760
     761!Config  Key  = ok_dynzon
     762!Config  Desc = calcul et sortie des transports
     763!Config  Def  = n
     764!Config  Help = Permet de mettre en route le calcul des transports
     765!Config         
     766       ok_dynzon = .FALSE.
     767       CALL getin('ok_dynzon',ok_dynzon)
    752768
    753769      write(lunout,*)' #########################################'
    … …  
    792808      write(lunout,*)' tauy = ', tauy
    793809      write(lunout,*)' offline = ', offline
     810      write(lunout,*)' ok_dynzon = ', ok_dynzon
    794811c
    795812      RETURN

  • LMDZ4/branches/LMDZ4_V3_patches/libf/dyn3d/control.h

    r844 r935  
    1414     &              iperiod,iapp_tracvl,iconser,iecri,idissip,iphysiq , &
    1515     &              periodav,ecritphy,iecrimoy,dayref,anneeref,         &
    16      &              raz_date,offline,ip_ebil_dyn
     16     &              raz_date,offline,ip_ebil_dyn,ok_dynzon
    1717
    1818      INTEGER   nday,day_step,iperiod,iapp_tracvl,iconser,iecri,        &
    … …  
    2121      REAL periodav, ecritphy
    2222      logical offline
     23      logical ok_dynzon
    2324
    2425!-----------------------------------------------------------------------

  • LMDZ4/branches/LMDZ4_V3_patches/libf/dyn3d/leapfrog.F

    r845 r935  
    536536               ENDIF
    537537#ifdef CPP_IOIPSL
     538             IF (ok_dynzon) THEN
    538539              CALL writedynav(histaveid, nqmx, itau,vcov ,
    539540     ,                          ucov,teta,pk,phi,q,masse,ps,phis)
    540541               call bilan_dyn (2,dtvr*iperiod,dtvr*day_step*periodav,
    541542     ,           ps,masse,pk,pbaru,pbarv,teta,phi,ucov,vcov,q)
     543             ENDIF
    542544#endif
    543545
    … …  
    642644               ENDIF
    643645#ifdef CPP_IOIPSL
    644               CALL writedynav(histaveid, nqmx, itau,vcov ,
     646               IF (ok_dynzon) THEN
     647                 CALL writedynav(histaveid, nqmx, itau,vcov ,
    645648     ,                          ucov,teta,pk,phi,q,masse,ps,phis)
    646                call bilan_dyn (2,dtvr*iperiod,dtvr*day_step*periodav,
     649                 call bilan_dyn (2,dtvr*iperiod,dtvr*day_step*periodav,
    647650     ,           ps,masse,pk,pbaru,pbarv,teta,phi,ucov,vcov,q)
     651               ENDIF
    648652#endif
    649653

  • LMDZ4/branches/LMDZ4_V3_patches/libf/dyn3dpar/conf_gcm.F

    r764 r935  
    600600       offline = .FALSE.
    601601       CALL getin('offline',offline)
     602
     603!Config  Key  = ok_dynzon
     604!Config  Desc = calcul et sortie des transports
     605!Config  Def  = n
     606!Config  Help = Permet de mettre en route le calcul des transports
     607!Config         
     608       ok_dynzon = .FALSE.
     609       CALL getin('ok_dynzon',ok_dynzon)
    602610
    603611
    … …  
    643651      write(lunout,*)' tauyy = ', tauyy
    644652      write(lunout,*)' offline = ', offline
     653      write(lunout,*)' ok_dynzon = ', ok_dynzon
    645654
    646655      RETURN
    … …  
    757766      write(lunout,*)' offline = ', offline
    758767
     768!Config  Key  = ok_dynzon
     769!Config  Desc = calcul et sortie des transports
     770!Config  Def  = n
     771!Config  Help = Permet de mettre en route le calcul des transports
     772!Config         
     773       ok_dynzon = .FALSE.
     774       CALL getin('ok_dynzon',ok_dynzon)
    759775
    760776      write(lunout,*)' #########################################'
    … …  
    799815      write(lunout,*)' tauy = ', tauy
    800816      write(lunout,*)' offline = ', offline
     817      write(lunout,*)' ok_dynzon = ', ok_dynzon
    801818c
    802819      RETURN

  • LMDZ4/branches/LMDZ4_V3_patches/libf/dyn3dpar/control.h

    r792 r935  
    1414     &              iperiod,iapp_tracvl,iconser,iecri,idissip,iphysiq , &
    1515     &              periodav,ecritphy,iecrimoy,dayref,anneeref,         &
    16      &              raz_date,offline,ip_ebil_dyn
     16     &              raz_date,offline,ip_ebil_dyn,ok_dynzon
    1717
    1818      INTEGER   nday,day_step,iperiod,iapp_tracvl,iconser,iecri,        &
    … …  
    2121      REAL periodav, ecritphy
    2222      logical offline
     23      logical ok_dynzon
    2324
    2425!-----------------------------------------------------------------------

  • LMDZ4/branches/LMDZ4_V3_patches/libf/dyn3dpar/leapfrog_p.F

    r916 r935  
    12761276                  iav=0
    12771277               ENDIF
    1278 c#ifdef CPP_IOIPSL
    1279 c             call Register_Hallo(vcov,ip1jm,llm,1,0,0,1,TestRequest)
    1280 c             call SendRequest(TestRequest)
    1281 cc$OMP BARRIER
    1282 c              call WaitRequest(TestRequest)
    1283 cc$OMP MASTER
     1278#ifdef CPP_IOIPSL
     1279             IF (ok_dynzon) THEN
     1280             call Register_Hallo(vcov,ip1jm,llm,1,0,0,1,TestRequest)
     1281             call SendRequest(TestRequest)
     1282c$OMP BARRIER
     1283              call WaitRequest(TestRequest)
     1284c$OMP MASTER
    12841285c              CALL writedynav_p(histaveid, nqmx, itau,vcov ,
    12851286c     ,                          ucov,teta,pk,phi,q,masse,ps,phis)
    1286 cc$OMP END MASTER
    1287 c               call bilan_dyn_p(2,dtvr*iperiod,dtvr*day_step*periodav,
    1288 c     ,           ps,masse,pk,pbaru,pbarv,teta,phi,ucov,vcov,q)
    1289 c#endif
     1287c$OMP END MASTER
     1288               call bilan_dyn_p(2,dtvr*iperiod,dtvr*day_step*periodav,
     1289     ,           ps,masse,pk,pbaru,pbarv,teta,phi,ucov,vcov,q)
     1290             ENDIF
     1291#endif
    12901292            ENDIF
    12911293
    … …  
    14291431                  iav=0
    14301432               ENDIF
    1431 c#ifdef CPP_IOIPSL
    1432 cc$OMP BARRIER
    1433 
    1434 c              call Register_Hallo(vcov,ip1jm,llm,1,0,0,1,TestRequest)
    1435 c              call SendRequest(TestRequest)
    1436 cc$OMP BARRIER
    1437 c              call WaitRequest(TestRequest)
    1438 
    1439 cc$OMP MASTER
     1433#ifdef CPP_IOIPSL
     1434               IF (ok_dynzon) THEN
     1435c$OMP BARRIER
     1436
     1437              call Register_Hallo(vcov,ip1jm,llm,1,0,0,1,TestRequest)
     1438              call SendRequest(TestRequest)
     1439c$OMP BARRIER
     1440              call WaitRequest(TestRequest)
     1441
     1442c$OMP MASTER
    14401443c              CALL writedynav_p(histaveid, nqmx, itau,vcov ,
    14411444c     ,                          ucov,teta,pk,phi,q,masse,ps,phis)
    1442 c               call bilan_dyn_p (2,dtvr*iperiod,dtvr*day_step*periodav,
    1443 c     ,           ps,masse,pk,pbaru,pbarv,teta,phi,ucov,vcov,q)
    1444 cc$OMP END MASTER
    1445 c#endif
     1445               call bilan_dyn_p (2,dtvr*iperiod,dtvr*day_step*periodav,
     1446     ,           ps,masse,pk,pbaru,pbarv,teta,phi,ucov,vcov,q)
     1447c$OMP END MASTER
     1448               ENDIF
     1449#endif
    14461450            ENDIF
    14471451
Note: See TracChangeset for help on using the changeset viewer.