Ignore:
Timestamp:
Jul 22, 2024, 9:29:09 PM (6 months ago)
Author:
abarral
Message:

Replace most uses of CPP_DUST by the corresponding logical defined in lmdz_cppkeys_wrapper.F90
Convert several files from .F to .f90 to allow Dust to compile w/o rrtm/ecrad
Create lmdz_yoerad.f90
(lint) Remove "!" on otherwise empty line

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/mod_1D_cases_read2.F90

    r5088 r5099  
    1 !
     1
    22! $Id: mod_1D_cases_read.F90 2373 2015-10-13 17:28:01Z jyg $
    3 !
     3
    44MODULE mod_1D_cases_read2
    55  USE netcdf, ONLY: nf90_get_var,nf90_noerr,nf90_inq_varid,nf90_inquire_dimension,nf90_strerror,nf90_open,&
    … …  
    372372    else
    373373       allocate(time_val(nt_cas))
    374        ierr = NF90_GET_VAR(nid,timeid,time_val)
     374       ierr = nf90_get_var(nid,timeid,time_val)
    375375       if(ierr/=nf90_noerr) then
    376376          print *,'Pb a la lecture de time cas.nc: '
    … …  
    582582     print *,'Dans read_cas2, on va lire ',var3didin(i),name_var(i)
    583583     if(i<=35) then
    584         ierr = NF90_GET_VAR(nid,var3didin(i),resul, count = [1, 1, nlevel, ntime])
     584        ierr = nf90_get_var(nid,var3didin(i),resul, count = [1, 1, nlevel, ntime])
    585585        print *,'Dans read_cas2, on a lu ',ierr,var3didin(i),name_var(i)
    586586        if(ierr/=nf90_noerr) then
    … …  
    590590     else
    591591        print *,'Dans read_cas2, on a lu ',ierr,var3didin(i),name_var(i)
    592         ierr = NF90_GET_VAR(nid,var3didin(i),resul1, count = [1, 1, ntime])
     592        ierr = nf90_get_var(nid,var3didin(i),resul1, count = [1, 1, ntime])
    593593        if(ierr/=nf90_noerr) then
    594594           print *,'Pb a la lecture de cas.nc: ',name_var(i)
    … …  
    702702        !-----------------------------------------------------------------------
    703703        if(i<=4) then     ! Lecture des coord pression en (nlevelp1,lat,lon)
    704            ierr = NF90_GET_VAR(nid,var3didin(i),apbp, count = [1, 1, nlevel + 1])
     704           ierr = nf90_get_var(nid,var3didin(i),apbp, count = [1, 1, nlevel + 1])
    705705           print *,'read2_cas(apbp), on a lu ',i,name_var(i)
    706706           if(ierr/=nf90_noerr) then
    … …  
    710710           !-----------------------------------------------------------------------
    711711        else if(i>4.and.i<=45) then   ! Lecture des variables en (time,nlevel,lat,lon)
    712            ierr = NF90_GET_VAR(nid,var3didin(i),resul, count = [1, 1, nlevel, ntime])
     712           ierr = nf90_get_var(nid,var3didin(i),resul, count = [1, 1, nlevel, ntime])
    713713           print *,'read2_cas(resul), on a lu ',i,name_var(i)
    714714           if(ierr/=nf90_noerr) then
    … …  
    718718           !-----------------------------------------------------------------------
    719719        else if (i>45.and.i<=51) then   ! Lecture des variables en (time,lat,lon)
    720            ierr = NF90_GET_VAR(nid,var3didin(i),resul2, count = [1, 1, ntime])
     720           ierr = nf90_get_var(nid,var3didin(i),resul2, count = [1, 1, ntime])
    721721           print *,'read2_cas(resul2), on a lu ',i,name_var(i)
    722722           if(ierr/=nf90_noerr) then
    … …  
    726726           !-----------------------------------------------------------------------
    727727        else     ! Lecture des constantes (lat,lon)
    728            ierr = NF90_GET_VAR(nid,var3didin(i),resul3)
     728           ierr = nf90_get_var(nid,var3didin(i),resul3)
    729729           print *,'read2_cas(resul3), on a lu ',i,name_var(i)
    730730           if(ierr/=nf90_noerr) then
    … …  
    877877        !-----------------------------------------------------------------------
    878878        if(i<=4) then     ! Lecture des coord pression en (nlevelp1,lat,lon)
    879            ierr = NF90_GET_VAR(nid,var3didin(i),apbp)
     879           ierr = nf90_get_var(nid,var3didin(i),apbp)
    880880           print *,'read2_cas(apbp), on a lu ',i,name_var(i)
    881881           if(ierr/=nf90_noerr) then
    … …  
    885885           !-----------------------------------------------------------------------
    886886        else if(i>4.and.i<=12) then   ! Lecture des variables en (time,nlevel,lat,lon)
    887            ierr = NF90_GET_VAR(nid,var3didin(i),resul1)
     887           ierr = nf90_get_var(nid,var3didin(i),resul1)
    888888           print *,'read2_cas(resul1), on a lu ',i,name_var(i)
    889889           if(ierr/=nf90_noerr) then
    … …  
    894894           !-----------------------------------------------------------------------
    895895        else if(i>12.and.i<=54) then   ! Lecture des variables en (time,nlevel,lat,lon)
    896            ierr = NF90_GET_VAR(nid,var3didin(i),resul)
     896           ierr = nf90_get_var(nid,var3didin(i),resul)
    897897           print *,'read2_cas(resul), on a lu ',i,name_var(i)
    898898           if(ierr/=nf90_noerr) then
    … …  
    903903           !-----------------------------------------------------------------------
    904904        else if (i>54.and.i<=65) then   ! Lecture des variables en (time,lat,lon)
    905            ierr = NF90_GET_VAR(nid,var3didin(i),resul2)
     905           ierr = nf90_get_var(nid,var3didin(i),resul2)
    906906           print *,'read2_cas(resul2), on a lu ',i,name_var(i)
    907907           if(ierr/=nf90_noerr) then
    … …  
    912912           !-----------------------------------------------------------------------
    913913        else     ! Lecture des constantes (lat,lon)
    914            ierr = NF90_GET_VAR(nid,var3didin(i),resul3)
     914           ierr = nf90_get_var(nid,var3didin(i),resul3)
    915915           print *,'read2_cas(resul3), on a lu ',i,name_var(i)
    916916           if(ierr/=nf90_noerr) then
    … …  
    10421042  !---------------------------------------------------------------------------------------
    10431043  ! Time interpolation of a 2D field to the timestep corresponding to day
    1044   !
     1044
    10451045  ! day: current julian day (e.g. 717538.2)
    10461046  ! day1: first day of the simulation
    … …  
    12351235     ,lat_cas,sens_cas,ustar_cas                                        &
    12361236     ,uw_cas,vw_cas,q1_cas,q2_cas,tke_cas                               &
    1237      !
     1237
    12381238     ,ts_prof_cas,plev_prof_cas,t_prof_cas,theta_prof_cas               &
    12391239     ,thv_prof_cas,thl_prof_cas,qv_prof_cas,ql_prof_cas,qi_prof_cas     &
    … …  
    12511251  !---------------------------------------------------------------------------------------
    12521252  ! Time interpolation of a 2D field to the timestep corresponding to day
    1253   !
     1253
    12541254  ! day: current julian day (e.g. 717538.2)
    12551255  ! day1: first day of the simulation
Note: See TracChangeset for help on using the changeset viewer.