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

Timestamp:

09/07/15 18:28:16 (9 years ago)

Author:

llfita

Message:

Modifying code to be 'gfortran' compatible:

• Change WRITE(' ',)... by PRINT *,
• Shorten some code lines

File:

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

codes/icosagcm/trunk/src/dissip_gcm.f90

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