Changeset 4725 for LMDZ6


Ignore:
Timestamp:
Oct 11, 2023, 6:37:33 PM (15 months ago)
Author:
Laurent Fairhead
Message:

Bug that prevented numeric convergence with old physics

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/cdrag_mod.F90

    • Property svn:keywords set to Id
    r4722 r4725  
     1!
     2!$Id$
     3!
    14!
    25MODULE cdrag_mod
     
    483486           cdmm(i)=cdmn(i)*FM(i)
    484487           cdhh(i)=f_cdrag_ter*cdhn(i)*FH(i)
     488           
    485489           IF (choix_bulk == 0) THEN
    486490             cdm(i)=cdmn(i)*FM(i)
     
    490494           IF (nsrf.EQ.is_oce) THEN
    491495             cdhh(i)=f_cdrag_oce*cdhn(i)*FH(i)
    492              cdmm(i)=MIN(cdm(i),cdmmax)
    493              cdhh(i)=MIN(cdh(i),cdhmax)
     496             cdmm(i)=MIN(cdmm(i),cdmmax)
     497             cdhh(i)=MIN(cdhh(i),cdhmax)
    494498           ENDIF
    495499           IF (ok_cdrag_iter) THEN
     
    622626     ENDIF ! fin du if (nsrf == is_oce)
    623627  END DO   !  Fin de la boucle sur l'horizontal
    624      
     628
    625629END SUBROUTINE cdrag
    626630
Note: See TracChangeset for help on using the changeset viewer.