Ignore:
Timestamp:
Jul 20, 2024, 6:08:57 PM (2 months ago)
Author:
abarral
Message:

Move lmdz_netcdf_format.F90 -> lmdz_cppkeys_wrapper.F90 to handle other CPP keys
Replace all (except wrapper) use of CPP_PHYS by fortran logical

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/iostart.F90

    r5088 r5090  
    387387  SUBROUTINE put_field_rgen(pass, field_name,title,field,field_size)
    388388  USE netcdf, ONLY: nf90_def_var,nf90_put_att,nf90_inq_varid,nf90_put_var
    389   USE lmdz_netcdf_format, ONLY: nf90_format
     389  USE lmdz_cppkeys_wrapper, ONLY: nf90_format
    390390  USE dimphy
    391391  USE geometry_mod
    … …  
    511511  SUBROUTINE put_var_rgen(pass, var_name,title,var,var_size)
    512512  USE netcdf, ONLY: nf90_def_var,nf90_put_var,nf90_inq_varid,nf90_put_att
    513   USE lmdz_netcdf_format, ONLY: nf90_format
     513  USE lmdz_cppkeys_wrapper, ONLY: nf90_format
    514514  USE dimphy
    515515  USE mod_phys_lmdz_para
Note: See TracChangeset for help on using the changeset viewer.