Changeset 1488


Ignore:
Timestamp:
Feb 17, 2011, 4:23:03 PM (14 years ago)
Author:
jghattas
Message:

Added subroutine grilles_gcm_netcdf_sub containing the first part of program create_fausse_var in file grilles_gcm_netcdf.F . The new subroutine is called in ce0l if parameter grilles_gcm_netcdf=T (default =F). The subroutine creates the file grilles_gcm.nc .


Location:
LMDZ5/branches/LMDZ5V2.0-dev/libf
Files:
2 added
6 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/branches/LMDZ5V2.0-dev/libf/dyn3d/ce0l.F90

    r1425 r1488  
    9191  END IF
    9292
     93  IF (grilles_gcm_netcdf) THEN
     94     WRITE(lunout,'(//)')
     95     WRITE(lunout,*) '  ***************************  '
     96     WRITE(lunout,*) '  ***  grilles_gcm_netcdf ***  '
     97     WRITE(lunout,*) '  ***************************  '
     98     WRITE(lunout,'(//)')
     99     CALL grilles_gcm_netcdf_sub()
     100  END IF
    93101#endif
    94102! of #ifndef CPP_EARTH #else

  • LMDZ5/branches/LMDZ5V2.0-dev/libf/dyn3d/conf_gcm.F

    r1418 r1488  
    841841      ok_etat0 = .TRUE.
    842842      CALL getin('ok_etat0',ok_etat0)
     843
     844!Config  Key  = grilles_gcm_netcdf
     845!Config  Desc = creation de fichier grilles_gcm.nc dans create_etat0_limit
     846!Config  Def  = n
     847      grilles_gcm_netcdf = .FALSE.
     848      CALL getin('grilles_gcm_netcdf',grilles_gcm_netcdf)
    843849
    844850      write(lunout,*)' #########################################'
    … …  
    887893      write(lunout,*)' ok_limit = ', ok_limit
    888894      write(lunout,*)' ok_etat0 = ', ok_etat0
     895      write(lunout,*)' grilles_gcm_netcdf = ', grilles_gcm_netcdf
    889896c
    890897      RETURN

  • LMDZ5/branches/LMDZ5V2.0-dev/libf/dyn3d/logic.h

    r1319 r1488  
    1010     &  statcl,conser,apdiss,apdelq,saison,ecripar,fxyhypb,ysinus       &
    1111     &  ,read_start,ok_guide,ok_strato,ok_gradsfile                     &
    12      &  ,ok_limit,ok_etat0
     12     &  ,ok_limit,ok_etat0,grilles_gcm_netcdf
    1313
    1414      LOGICAL purmats,forward,leapf,apphys,statcl,conser,               &
    1515     & apdiss,apdelq,saison,ecripar,fxyhypb,ysinus                      &
    1616     &  ,read_start,ok_guide,ok_strato,ok_gradsfile                     &
    17      &  ,ok_limit,ok_etat0
     17     &  ,ok_limit,ok_etat0,grilles_gcm_netcdf
    1818
    1919      INTEGER iflag_phys

  • LMDZ5/branches/LMDZ5V2.0-dev/libf/dyn3dpar/ce0l.F90

    r1482 r1488  
    102102  END IF
    103103
     104  IF (grilles_gcm_netcdf) THEN
     105     WRITE(lunout,'(//)')
     106     WRITE(lunout,*) '  ***************************  '
     107     WRITE(lunout,*) '  ***  grilles_gcm_netcdf ***  '
     108     WRITE(lunout,*) '  ***************************  '
     109     WRITE(lunout,'(//)')
     110     CALL grilles_gcm_netcdf_sub()
     111  END IF
     112 
    104113!$OMP MASTER
    105114  CALL finalize_parallel

  • LMDZ5/branches/LMDZ5V2.0-dev/libf/dyn3dpar/conf_gcm.F

    r1454 r1488  
    888888      ok_etat0 = .TRUE.
    889889      CALL getin('ok_etat0',ok_etat0)
     890
     891!Config  Key  = grilles_gcm_netcdf
     892!Config  Desc = creation de fichier grilles_gcm.nc dans create_etat0_limit
     893!Config  Def  = n
     894      grilles_gcm_netcdf = .FALSE.
     895      CALL getin('grilles_gcm_netcdf',grilles_gcm_netcdf)
    890896
    891897      write(lunout,*)' #########################################'
    … …  
    937943      write(lunout,*)' ok_limit = ', ok_limit
    938944      write(lunout,*)' ok_etat0 = ', ok_etat0
     945      write(lunout,*)' grilles_gcm_netcdf = ', grilles_gcm_netcdf
    939946c
    940947      RETURN

  • LMDZ5/branches/LMDZ5V2.0-dev/libf/dyn3dpar/logic.h

    r1319 r1488  
    1010     &  statcl,conser,apdiss,apdelq,saison,ecripar,fxyhypb,ysinus       &
    1111     &  ,read_start,ok_guide,ok_strato,ok_gradsfile                     &
    12      &  ,ok_limit,ok_etat0
     12     &  ,ok_limit,ok_etat0,grilles_gcm_netcdf
    1313
    1414      LOGICAL purmats,forward,leapf,apphys,statcl,conser,               &
    1515     & apdiss,apdelq,saison,ecripar,fxyhypb,ysinus                      &
    1616     &  ,read_start,ok_guide,ok_strato,ok_gradsfile                     &
    17      &  ,ok_limit,ok_etat0
     17     &  ,ok_limit,ok_etat0,grilles_gcm_netcdf
    1818
    1919      INTEGER iflag_phys
Note: See TracChangeset for help on using the changeset viewer.