Ignore:
Timestamp:
Jun 17, 2013, 10:16:15 AM (12 years ago)
Author:
emillour
Message:

Generic GCM:

  • Some more cleanup in dynamics:
    • Moved "start2archive" (and auxilliary routines) to phystd
    • removed unused (obsolete) testharm.F , para_netcdf.h , readhead_NC.F , angtot.h from dyn3d
    • removed obsolete addit.F (and change corresponding lines in gcm)
    • remove unused "description.h" (and many places where it was "included")

EM

Location:
trunk/LMDZ.GENERIC/libf/dyn3d
Files:
7 deleted
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/libf/dyn3d/dynetat0.F

    r253 r993  
    2828#include "ener.h"
    2929#include "netcdf.inc"
    30 #include "description.h"
    3130#include "serre.h"
    3231#include "logic.h"

  • trunk/LMDZ.GENERIC/libf/dyn3d/dynredem.F

    r135 r993  
    1515#include "logic.h"
    1616#include "netcdf.inc"
    17 #include "description.h"
    1817#include "serre.h"
    1918#include "advtrac.h"
    … …  
    961960#include "dimensions.h"
    962961#include "paramet.h"
    963 #include "description.h"
    964962#include "netcdf.inc"
    965963#include "comvert.h"

  • trunk/LMDZ.GENERIC/libf/dyn3d/gcm.F

    r649 r993  
    4444#include "ener.h"
    4545#include "netcdf.inc"
    46 #include "description.h"
    4746#include "serre.h"
    4847#include "tracstoke.h"
    … …  
    104103      EXTERNAL integrd,SCOPY
    105104      EXTERNAL inigeom
    106       EXTERNAL exner_hyb,addit
     105      EXTERNAL exner_hyb
    107106      EXTERNAL defrun_new, test_period
    108107      REAL  SSUM
    … …  
    157156
    158157      modname = 'gcm'
    159       descript = 'Run GCM LMDZ'
    160158      lafin    = .FALSE.
    161159
    … …  
    465463         CALL dissip(vcov,ucov,teta,p,dvdis,dudis,dhdis)
    466464
    467          CALL addit( ijp1llm,ucov ,dudis,ucov )
    468          CALL addit( ijmllm ,vcov ,dvdis,vcov )
     465         ucov(:,:)=ucov(:,:)+dudis(:,:)
     466         vcov(:,:)=vcov(:,:)+dvdis(:,:)
    469467
    470468
    … …  
    478476         endif
    479477
    480          CALL addit( ijp1llm,teta ,dhdis,teta )
     478         teta(:,:)=teta(:,:)+dhdis(:,:)
    481479
    482480
Note: See TracChangeset for help on using the changeset viewer.