Ignore:
Timestamp:
Jul 21, 2014, 2:39:49 PM (10 years ago)
Author:
Laurent Fairhead
Message:

Changement de nom de clef CPP:
CPP_NO_IOIPSL devient CPP_IOIPSL_NO_OUTPUT pour éviter la confusion. Elle
permet de ne pas sortir les fichiers IOIPSL "proprement"
L'option -io de makelmdz et makelmdz_fcm est changée:
avec la valeur ioipsl, on ne sort que les fichier IOIPSL

mix, on sort les fichiers IOIPSL et XIOS
xios, on ne sort que les fichiers XIOS


Change in the name of a CPP key:
CPP_NO_IOIPSL becomes CPP_IOIPSL_NO_OUTPUT. If defined, IOIPSL outputs are not
generated.
The -io option for makelmdz and makelmdz_fcm is changed as well:
with the value ioipsl, only IOIPSL files are output

mix, IOIPSL and XIOS files are output
xios, only XIOS files are output

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/iophy.F90

    r2002 r2097  
    115115    ENDIF
    116116
    117 #ifndef CPP_NO_IOIPSL   
     117#ifndef CPP_IOIPSL_NO_OUTPUT   
    118118    CALL flio_dom_set(mpi_size,mpi_rank,ddid,dsg,dsl,dpf,dpl,dhs,dhe, &
    119119                      'APPLE',phys_domain_id)
     
    186186    endif
    187187   
    188 #ifndef CPP_NO_IOIPSL
     188#ifndef CPP_IOIPSL_NO_OUTPUT
    189189    call flio_dom_set(mpi_size,mpi_rank,ddid,dsg,dsl,dpf,dpl,dhs,dhe, &
    190190                      'APPLE',phys_domain_id)
     
    250250
    251251!$OMP MASTER   
    252 #ifndef CPP_NO_IOIPSL
     252#ifndef CPP_IOIPSL_NO_OUTPUT
    253253    if (is_sequential) then
    254254      call histbeg(name,iim,io_lon, jj_nb,io_lat(jj_begin:jj_end), &
     
    390390    ENDDO
    391391
    392 #ifndef CPP_NO_IOIPSL
     392#ifndef CPP_IOIPSL_NO_OUTPUT
    393393     call histbeg(nname,pim,plon,plon_bounds, &
    394394                           plat,plat_bounds, &
     
    431431      ENDIF
    432432     ENDDO
    433 #ifndef CPP_NO_IOIPSL
     433#ifndef CPP_IOIPSL_NO_OUTPUT
    434434     call histbeg(nname,npstn,npplon,npplon_bounds, &
    435435                            npplat,npplat_bounds, &
     
    612612      ENDIF
    613613#endif
    614 #ifndef CPP_NO_IOIPSL
     614#ifndef CPP_IOIPSL_NO_OUTPUT
    615615
    616616       IF ( var%flag(iff)<=lev_files(iff) ) THEN
     
    697697      ENDIF
    698698#endif
    699 #ifndef CPP_NO_IOIPSL
     699#ifndef CPP_IOIPSL_NO_OUTPUT
    700700
    701701       IF ( var%flag(iff)<=lev_files(iff) ) THEN
     
    962962                        ALLOCATE(index2d(iim*jj_nb))
    963963                        ALLOCATE(fieldok(iim*jj_nb))
    964 #ifndef CPP_NO_IOIPSL
     964#ifndef CPP_IOIPSL_NO_OUTPUT
    965965                        CALL histwrite(nid_files(iff),var%name,itau_iophy,Field2d,iim*jj_nb,index2d)
    966966#endif
     
    990990                              ENDDO
    991991                       ENDIF ! of IF (is_sequential)
    992 #ifndef CPP_NO_IOIPSL
     992#ifndef CPP_IOIPSL_NO_OUTPUT
    993993                       if (prt_level >= 10) then
    994994                         write(lunout,*)"histwrite2d_phy: clef_stations(iff) and iff==iff_beg, call wxios_write_2D"
     
    10971097                        ALLOCATE(fieldok(iim*jj_nb,nlev))
    10981098
    1099 #ifndef CPP_NO_IOIPSL
     1099#ifndef CPP_IOIPSL_NO_OUTPUT
    11001100                        CALL histwrite(nid_files(iff),var%name,itau_iophy,Field3d,iim*jj_nb*nlev,index3d)
    11011101#endif
     
    11281128                              ENDDO
    11291129                        ENDIF
    1130 #ifndef CPP_NO_IOIPSL
     1130#ifndef CPP_IOIPSL_NO_OUTPUT
    11311131                        CALL histwrite(nid_files(iff),var%name,itau_iophy,fieldok,npstn*nlev,index3d)
    11321132#endif
Note: See TracChangeset for help on using the changeset viewer.