Ignore:
Timestamp:
Jun 4, 2012, 10:37:25 AM (13 years ago)
Author:
acolaitis
Message:

Code re-organization in diverse parts of the GCM code. These are NOT cosmetic changes, but are needed for compilation of the Mesoscale model in NESTED configuration

Location:
trunk/LMDZ.MARS/libf/phymars
Files:
7 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.MARS/libf/phymars/aeroptproperties.F

    r89 r690  
    11741174          ENDDO ! lg
    11751175          write(out_str(1:1),'(i1.1)') out_nchannel
    1176           call WRITEDIAGFI(ngrid,'qextir'//out_str,"Ext.efficiency","",
     1176       call WRITEDIAGFI(ngrid,'qextir'//out_str,"Ext.efficiency","",
    11771177     &                     3,out_qext)
    1178           call WRITEDIAGFI(ngrid,'omegir'//out_str,"Sing.Scat.Alb.","",
     1178       call WRITEDIAGFI(ngrid,'omegir'//out_str,"Sing.Scat.Alb.","",
    11791179     &                     3,out_omeg)
    1180           call WRITEDIAGFI(ngrid,'gir'//out_str,"Asym.Factor","",
     1180       call WRITEDIAGFI(ngrid,'gir'//out_str,"Asym.Factor","",
    11811181     &                     3,out_g)
    11821182c     -------------------------------------------------------------
  • trunk/LMDZ.MARS/libf/phymars/co2snow.F

    r38 r690  
    1       SUBROUTINE co2snow (ngrid,nlayer,ptimestep,emisref,condsub,pplev,
    2      &        pcondicea,pcondices,pfallice,pemisurf)
     1      SUBROUTINE co2snow (ngrid,nlayer,ptimestep,emisref,condsub
     2     &         ,pplev,pcondicea,pcondices,pfallice,pemisurf)
    33
    44       IMPLICIT NONE
  • trunk/LMDZ.MARS/libf/phymars/datareadnc.F

    r224 r690  
    122122        write(*,*)'(in phymars/datareadnc.F)'
    123123        write(*,*)'It should be in :',trim(datafile),'/'
    124         write(*,*)'1) You can set this path in the callphys.def file:'
     124        write(*,*)'1) You can set this path in the
     125     & callphys.def file:'
    125126        write(*,*)'   datadir=/path/to/the/datafiles'
    126127        write(*,*)'2) If necessary, surface.nc (and other datafiles)'
  • trunk/LMDZ.MARS/libf/phymars/inistats.F

    r410 r690  
    9292      ierr = NF_PUT_VAR_REAL (nid,nvarid,pseudoalt)
    9393#endif
    94       call def_var_stats(nid,"aps","hybrid pressure at midlayers"," ",
    95      &            1,idim_llm,nvarid,ierr)
     94      call def_var_stats(nid,"aps","hybrid pressure at midlayers"
     95     & ," ",1,idim_llm,nvarid,ierr)
    9696#ifdef NC_DOUBLE
    9797      ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,aps)
     
    100100#endif
    101101
    102       call def_var_stats(nid,"bps","hybrid sigma at midlayers"," ",
    103      &            1,idim_llm,nvarid,ierr)
     102      call def_var_stats(nid,"bps","hybrid sigma at midlayers"
     103     & ," ",1,idim_llm,nvarid,ierr)
    104104#ifdef NC_DOUBLE
    105105      ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,bps)
  • trunk/LMDZ.MARS/libf/phymars/nirco2abs.F

    r575 r690  
    197197                     pyy(l)=pplay(ig,l)
    198198                  enddo
    199                   call interpnir(cor1,pyy,nlayer,corgcm,pres1d,npres)
    200                   call interpnir(oldoco2,pyy,nlayer,oco21d,pres1d,npres)
    201                   call interpnir(alfa2,pyy,nlayer,alfa,pres1d,npres)
     199               call interpnir(cor1,pyy,nlayer,corgcm,pres1d,npres)
     200               call interpnir(oldoco2,pyy,nlayer,oco21d,pres1d,npres)
     201               call interpnir(alfa2,pyy,nlayer,alfa,pres1d,npres)
    202202               endif
    203203
  • trunk/LMDZ.MARS/libf/phymars/nlte_calc.F

    r498 r690  
    66c     a calculation of transmittances and derivatives of these ones   
    77     
    8       subroutine mzescape(ig,taustar,tauinf,tauii, ib,isot, iirw,iimu)       
     8      subroutine mzescape(ig,taustar,tauinf,tauii,
     9     &  ib,isot, iirw,iimu)
    910
    1011c     jul 2011        malv+fgg   adapted to LMD-MGCM                       
  • trunk/LMDZ.MARS/libf/phymars/yamada4.F

    r652 r690  
    596596      return
    597597      end
    598       SUBROUTINE vdif_q2(timestep,gravity,rconst,ngrid,nlay,plev,temp,
    599      &  kmy,q2)
     598      SUBROUTINE vdif_q2(timestep,gravity,rconst,ngrid,nlay
     599     & ,plev,temp,kmy,q2)
    600600      IMPLICIT NONE
    601601!.......................................................................
Note: See TracChangeset for help on using the changeset viewer.