Ignore:
Timestamp:
Feb 17, 2011, 4:23:03 PM (13 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 .


File:
1 edited

Legend:

Unmodified
Added
Removed

  • 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
Note: See TracChangeset for help on using the changeset viewer.