Ignore:
Timestamp:
May 19, 2014, 10:05:08 AM (11 years ago)
Author:
aslmd
Message:

LMDZ.MARS
IMPORTANT CHANGE

  • Remove all reference/use of nlayermx and dimphys.h
  • Made use of automatic arrays whenever arrays are needed with dimension nlayer
  • Remove lots of obsolete reference to dimensions.h
  • Converted iono.h and param_v4.h into corresponding modules

(with embedded subroutine to allocate arrays)
(no arrays allocated if thermosphere not used)

  • Deleted param.h and put contents into module param_v4_h
  • Adapted testphys1d, newstart, etc...
  • Made DATA arrays in param_read to be initialized by subroutine

fill_data_thermos in module param_v4_h

  • Optimized computations in paramfoto_compact (twice less dlog10 calculations)
  • Checked consistency before/after modification in debug mode
  • Checked performance is not impacted (same as before)
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/aeronomars/photochemistry.F

    r1226 r1266  
    1717      implicit none
    1818
    19 !#include "dimensions.h"
    20 !#include "dimphys.h"
    2119#include "chimiedata.h"
    2220#include "callkeys.h"
    23 !#include "tracer.h"
    2421
    2522cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
    … …  
    193190      implicit none
    194191
    195 !#include "dimensions.h"
    196 !#include "dimphys.h"
    197192#include "chimiedata.h"
    198193#include "callkeys.h"
    … …  
    790785      implicit none
    791786
    792 !#include "dimensions.h"
    793 !#include "dimphys.h"
    794787#include "chimiedata.h"
    795788
    … …  
    11631156      implicit none
    11641157
    1165 !#include "dimensions.h"
    1166 !#include "dimphys.h"
    11671158#include "callkeys.h"
    1168 !#include "tracer.h"
    11691159
    11701160cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
    … …  
    12681258      implicit none
    12691259
    1270 !#include "dimensions.h"
    1271 !#include "dimphys.h"
    12721260#include "callkeys.h"
    1273 !#include "tracer.h"
    12741261
    12751262cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
    … …  
    13651352      implicit none
    13661353
    1367 !#include "dimensions.h"
    1368 !#include "dimphys.h"
    1369 
    13701354cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
    13711355c     inputs:                                                    c
Note: See TracChangeset for help on using the changeset viewer.