Changeset 2529 for LMDZ5/trunk/libf/phylmd/iophy.F90

Timestamp:

May 30, 2016, 10:46:40 PM (8 years ago)

Author:

oboucher

Message:

Reviewing the way swaero_diag is computed to correct an old bug that
makes topswad and co diagnostics wrong for the first timestep...
And introducing swaero_diag in rrtm/recmwf_aero so that double and
triple radiation calls when diagnostics are not needed to save time

File:

• LMDZ5/trunk/libf/phylmd/iophy.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/iophy.F90

@@ -633 +633 @@
     ENDIF
 
-    ! Set swaero_diag=true if at least one of the concerned variables are defined 
-    IF (var%name=='topswad' .OR. var%name=='topswai' .OR. var%name=='solswad' .OR. var%name=='solswai' ) THEN
+    ! Set swaero_diag=true if at least one of the concerned variables are
+    ! defined
+    !--OB 30/05/2016 use wider set of variables
+    IF ( var%name=='topswad' .OR. var%name=='topswad0' .OR. var%name=='solswad' .OR. var%name=='solswad0' .OR. &
+         var%name=='topswai' .OR. var%name=='solswai'  .OR. ( iflag_rrtm==1 .AND. (                            &
+         var%name=='toplwad' .OR. var%name=='toplwad0' .OR. var%name=='sollwad' .OR. var%name=='sollwad0' .OR. &
+         var%name=='toplwai' .OR. var%name=='sollwai'  ) ) ) THEN
        IF  ( var%flag(iff)<=lev_files(iff) ) THEN
           swaero_diag=.TRUE.