Ignore:
Timestamp:
Apr 20, 2020, 12:13:34 PM (4 years ago)
Author:
lfalletti
Message:

Adding changes for Reprobus

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/radlwsw_m.F90

    r3630 r3666  
    453453  IF (type_trac == 'repr') THEN
    454454#ifdef REPROBUS
    455      if(ok_SUNTIME) PSCT = solaireTIME/zdist/zdist
    456      print*,'Constante solaire: ',PSCT*zdist*zdist
     455    IF (iflag_rrtm==0) THEN
     456      if(ok_SUNTIME) PSCT = solaireTIME/zdist/zdist
     457      print*,'Constante solaire: ',PSCT*zdist*zdist
     458    END IF
    457459#endif
    458460  END IF
Note: See TracChangeset for help on using the changeset viewer.