Ignore:
Timestamp:
Jul 19, 2024, 10:05:57 AM (4 months ago)
Author:
abarral
Message:

[continued & end] replace netcdf by lmdz_netcdf.F90 wrapper
"use netcdf" is now only used in lmdz_netcdf.F90 (except ecrad and obsolete/)
<include "netcdf.inc"> is now likewise only used in lmdz_netcdf.F90.

systematically specify explicitely <USE lmdz_netcdf, ONLY:> (probably left some missing, to correct later on)

Further replacement of nf_put_* by nf90_put_* (same for _get_)

[minor] replace deprecated boolean operators along the way

Location:
LMDZ6/trunk/libf/phylmd/StratAer
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/StratAer/interp_sulf_input.F90

    r4625 r5075  
    66  USE netcdf95, ONLY: nf95_close, nf95_gw_var, nf95_inq_dimid, &
    77                      nf95_inq_varid, nf95_inquire_dimension, nf95_open
    8   USE netcdf, ONLY: nf90_get_var, nf90_noerr, nf90_nowrite
     8  USE lmdz_netcdf, ONLY: nf90_get_var, nf90_noerr, nf90_nowrite
    99
    1010  USE mod_grid_phy_lmdz

  • LMDZ6/trunk/libf/phylmd/StratAer/stratH2O_methox.F90

    r4755 r5075  
    88  USE netcdf95, ONLY: nf95_close, nf95_gw_var, nf95_inq_dimid, &
    99                      nf95_inq_varid, nf95_inquire_dimension, nf95_open
    10   USE netcdf, ONLY: nf90_get_var, nf90_noerr, nf90_nowrite
     10  USE lmdz_netcdf, ONLY: nf90_get_var, nf90_noerr, nf90_nowrite
    1111
    1212  USE mod_grid_phy_lmdz
    … …  
    7979!
    8080 
    81   IF (debutphy .OR. mth_cur .NE. mth_pre) THEN
     81  IF (debutphy .OR. mth_cur /= mth_pre) THEN
    8282     
    8383!--preparation of global fields
Note: See TracChangeset for help on using the changeset viewer.