Changeset 149 for codes/icosagcm/trunk/src/dissip_gcm.f90

Timestamp:

04/03/13 12:05:12 (11 years ago)

Author:

sdubey

Message:

Added few new routines to read NC files and compute diagnostics to r145.

Few routines of dry physics including radiation module, surface process and convective adjustment in new routine phyparam.f90. dynetat to read start files for dynamics.

check_conserve routine to compute conservation of quatities like mass, energy etc.etat0_heldsz.f90 for held-suarez test case initial conditions.

new Key time_style=lmd or dcmip to use day_step, ndays like in LMDZ

File:

• codes/icosagcm/trunk/src/dissip_gcm.f90 (modified) (1 diff)

codes/icosagcm/trunk/src/dissip_gcm.f90

@@ -96 +96 @@
       IF (is_mpi_root) PRINT *, 'Rayleigh friction : Schaer-like mountain with shear DCMIP2.2'
    CASE DEFAULT
-      IF (is_mpi_root) PRINT *, 'Bad selector : rayleigh_friction_type =', TRIM(rayleigh_friction_key), ' in dissip_gcm.f90/init_dissip'
+      IF (is_mpi_root) PRINT *, 'Bad selector : rayleigh_friction_type =', TRIM(rayleigh_friction_key), & 
+        ' in dissip_gcm.f90/init_dissip'
       STOP
    END SELECT