Ignore:
Timestamp:
Jul 18, 2024, 9:28:57 AM (7 months ago)
Author:
abarral
Message:

Transform gr_dyn_fi_p.F, gr_fi_dyn_p.F, calfis_loc.F into free-form modules.
Reorder CPP_PARA keys in lmdz_call_calfis.F90, lmdz_calfis_loc.F90, lmdz_gr_dyn_fi_p.F90, lmdz_gr_fi_dyn_p.F90 to avoid implicit declarations.
Remove redundant -cpp -D.. on arch.
Correct "!OMP" -> "!$OMP"
Correct typo in lmdz_xios.F90, wstats.F90

Location:
LMDZ6/trunk/libf/dyn3dmem
Files:
2 edited
1 moved

Legend:

Unmodified
Added
Removed
  • TabularUnified LMDZ6/trunk/libf/dyn3dmem/leapfrog_loc.F

    r4619 r5066  
    2828       USE allocate_field_mod
    2929       USE call_dissip_mod, ONLY : call_dissip
    30        USE call_calfis_mod, ONLY : call_calfis
     30       USE lmdz_call_calfis, ONLY : call_calfis
    3131       USE leapfrog_mod, ONLY : ucov,vcov,teta,ps,masse,phis,q,dq
    3232     & ,ucovm1,vcovm1,tetam1,massem1,psm1,p,pks,pk,pkf,flxw
  • TabularUnified LMDZ6/trunk/libf/dyn3dmem/leapfrog_mod.F90

    r2021 r5066  
    4444  USE integrd_mod,ONLY : integrd_allocate
    4545  USE caladvtrac_mod,ONLY : caladvtrac_allocate
    46   USE call_calfis_mod,ONLY : call_calfis_allocate
     46  USE lmdz_call_calfis,ONLY : call_calfis_allocate
    4747  USE call_dissip_mod, ONLY : call_dissip_allocate
    4848  IMPLICIT NONE
  • TabularUnified LMDZ6/trunk/libf/dyn3dmem/lmdz_call_calfis.F90

    r5065 r5066  
    11!#define DEBUG_IO
    2 MODULE call_calfis_mod
     2MODULE lmdz_call_calfis
    33
    44    REAL,POINTER,SAVE :: ucov(:,:)
     
    8888  USE comvert_mod, ONLY: ap, bp, pressure_exner
    8989  USE temps_mod, ONLY: day_ini, day_ref, jd_ref, jh_ref, start_time
    90  
     90#ifdef CPP_PHYS
     91  USE lmdz_calfis_loc
     92#endif
     93
    9194  IMPLICIT NONE
    9295    INCLUDE "iniprint.h"
     
    414417  END SUBROUTINE call_calfis
    415418 
    416 END MODULE call_calfis_mod
     419END MODULE lmdz_call_calfis
Note: See TracChangeset for help on using the changeset viewer.