Ignore:
Timestamp:
Jul 18, 2024, 2:27:04 PM (7 months ago)
Author:
abarral
Message:

Reduce use of #ifdef NC_DOUBLE to single instance in lmdz_netcdf.F90
Add nf_get_vara_rd in lmdz_netcdf.F90
Remove #ifdef NC_DOUBLE in dynredem_mod.F90 & guide_loc_mod.F90
(minor) fix some casting in ncdf calls in guide_loc_mod.F90
(minor) replace netcdf call & reduncate implicit none in dynredem_mod.F90

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3d/dynredem_mod.F90

    r5068 r5069  
    11MODULE dynredem_mod
    22
    3   USE netcdf
    4   PRIVATE
     3  USE lmdz_netcdf
     4  IMPLICIT NONE; PRIVATE
    55  PUBLIC :: dynredem_write_u, dynredem_write_v, dynredem_read_u, err
    66  PUBLIC :: cre_var, put_var1, put_var2, fil, modname, msg
    … …  
    1818SUBROUTINE dynredem_write_u(ncid,id,var,ll)
    1919!
    20 !===============================================================================
    21   IMPLICIT NONE
    2220!===============================================================================
    2321! Arguments:
    … …  
    4442!
    4543!===============================================================================
    46   IMPLICIT NONE
    47 !===============================================================================
    4844! Arguments:
    4945  INTEGER,          INTENT(IN) :: ncid
    … …  
    6864SUBROUTINE dynredem_read_u(ncid,id,var,ll)
    6965!
    70 !===============================================================================
    71   IMPLICIT NONE
    7266!===============================================================================
    7367! Arguments:
    … …  
    9488!
    9589!===============================================================================
    96   USE lmdz_netcdf, ONLY: NF90_FORMAT
    97   IMPLICIT NONE
    98 !===============================================================================
    9990! Arguments:
    10091  INTEGER,                    INTENT(IN) :: ncid
    … …  
    116107SUBROUTINE put_var1(ncid,var,title,did,v,units)
    117108!
    118 !===============================================================================
    119   IMPLICIT NONE
    120109!===============================================================================
    121110! Arguments:
    … …  
    142131!
    143132!===============================================================================
    144   IMPLICIT NONE
    145 !===============================================================================
    146133! Arguments:
    147134  INTEGER,                    INTENT(IN) :: ncid
    … …  
    166153FUNCTION msg(typ,nam)
    167154!
    168 !===============================================================================
    169   IMPLICIT NONE
    170155!===============================================================================
    171156! Arguments:
    … …  
    194179!
    195180!===============================================================================
    196   IMPLICIT NONE
    197 !===============================================================================
    198181! Arguments:
    199182  INTEGER,                    INTENT(IN) :: ierr   !--- NetCDF ERROR CODE
Note: See TracChangeset for help on using the changeset viewer.