Ignore:
Timestamp:
Oct 8, 2010, 12:19:34 PM (14 years ago)
Author:
jghattas
Message:

Bug corrections for option offline. This option does not work at the same time as adjust=y.

Location:
LMDZ5/branches/LMDZ5V1.0-dev/libf/dyn3dpar
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/branches/LMDZ5V1.0-dev/libf/dyn3dpar/conf_gcm.F

    r1403 r1438  
    578578       offline = .FALSE.
    579579       CALL getin('offline',offline)
    580 
     580       IF (offline .AND. adjust) THEN
     581          WRITE(lunout,*)
     582     &         'WARNING : option offline does not work with adjust=y :'
     583          WRITE(lunout,*) 'the files defstoke.nc, fluxstoke.nc ',
     584     &         'and fluxstokev.nc will not be created'
     585          WRITE(lunout,*)
     586     &         'only the file phystoke.nc will still be created '
     587       END IF
     588       
    581589!Config  Key  = config_inca
    582590!Config  Desc = Choix de configuration de INCA
     
    768776       offline = .FALSE.
    769777       CALL getin('offline',offline)
     778       IF (offline .AND. adjust) THEN
     779          WRITE(lunout,*)
     780     &         'WARNING : option offline does not work with adjust=y :'
     781          WRITE(lunout,*) 'the files defstoke.nc, fluxstoke.nc ',
     782     &         'and fluxstokev.nc will not be created'
     783          WRITE(lunout,*)
     784     &         'only the file phystoke.nc will still be created '
     785       END IF
    770786
    771787!Config  Key  = config_inca
  • LMDZ5/branches/LMDZ5V1.0-dev/libf/dyn3dpar/initfluxsto_p.F

    r1279 r1438  
    203203     .              llm, nivsigs, zvertiid)
    204204c pour le fichier def
    205       nivd(1) = 1
    206       call histvert(filedid, 'sig_s', 'Niveaux sigma',
    207      .  'sigma_level',
    208      .              1, nivd, dvertiid)
    209 
     205      if (mpi_rank==0) then
     206         nivd(1) = 1
     207         call histvert(filedid, 'sig_s', 'Niveaux sigma',
     208     .        'sigma_level',
     209     .        1, nivd, dvertiid)
     210      endif
    210211C
    211212C  Appels a histdef pour la definition des variables a sauvegarder
     
    282283      call histend(fileid)
    283284      call histend(filevid)
    284       call histend(filedid)
     285      if (mpi_rank==0) call histend(filedid)
    285286      if (ok_sync) then
    286287        call histsync(fileid)
    287288        call histsync(filevid)
    288         call histsync(filedid)
     289        if (mpi_rank==0) call histsync(filedid)
    289290      endif
    290291       
  • LMDZ5/branches/LMDZ5V1.0-dev/libf/dyn3dpar/leapfrog_p.F

    r1437 r1438  
    596596     .        flxw,pk, iapptrac)
    597597
    598        IF (offline) THEN
    599 Cmaf stokage du flux de masse pour traceurs OFF-LINE
    600 
    601 #ifdef CPP_IOIPSL
    602            CALL fluxstokenc_p(pbaru,pbarv,masse,teta,phi,phis,
    603      .   dtvr, itau)
    604 #endif
    605 
    606 
    607          ENDIF ! of IF (offline)
    608 c
     598C        Stokage du flux de masse pour traceurs OFF-LINE
     599         IF (offline .AND. .NOT. adjust) THEN
     600            CALL fluxstokenc_p(pbaru,pbarv,masse,teta,phi,phis,
     601     .           dtvr, itau)
     602         ENDIF
     603
    609604      ENDIF ! of IF( forward. OR . leapf )
    610605cc$OMP END PARALLEL
Note: See TracChangeset for help on using the changeset viewer.