Changeset 2617 for LMDZ5


Ignore:
Timestamp:
Aug 31, 2016, 2:11:23 PM (8 years ago)
Author:
oboucher
Message:

Fixing a bug on the runofflic diagnostic.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/fonte_neige_mod.F90

    r2517 r2617  
    3434  REAL, ALLOCATABLE, DIMENSION(:,:), PRIVATE  :: fqcalving_global
    3535  !$OMP THREADPRIVATE(fqcalving_global)
     36  REAL, ALLOCATABLE, DIMENSION(:), PRIVATE  :: runofflic_global
     37  !$OMP THREADPRIVATE(runofflic_global)
    3638
    3739CONTAINS
     
    105107    ENDIF
    106108    fqcalving_global(:,:) = 0.0
     109
     110    ALLOCATE(runofflic_global(klon))
     111    IF (error /= 0) THEN
     112       abort_message='Pb allocation runofflic_global'
     113       CALL abort_physic(modname,abort_message,1)
     114    ENDIF
     115    runofflic_global(:) = 0.0
    107116
    108117!****************************************************************************************
     
    282291    ENDDO
    283292
     293    IF (nisurf == is_lic) THEN
     294    DO i = 1, knon
     295       runofflic_global(knindex(i)) = run_off_lic(i)
     296    ENDDO
     297    ENDIF
     298
    284299  END SUBROUTINE fonte_neige
    285300!
     
    343358       fqcalving_out(:) = fqcalving_out(:) + fqcalving_global(:,nisurf)*pctsrf(:,nisurf)
    344359    ENDDO
    345     run_off_lic_out(:)=run_off_lic(:)
     360
     361    run_off_lic_out(:)=runofflic_global(:)
    346362
    347363  END SUBROUTINE fonte_neige_get_vars
Note: See TracChangeset for help on using the changeset viewer.