Changeset 3726 for LMDZ6/trunk


Ignore:
Timestamp:
Jun 18, 2020, 11:31:16 AM (4 years ago)
Author:
idelkadi
Message:

Debugging COSP v2 for simulators Calipso, Parasol, Cloudsat

File:
1 edited

Legend:

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

    r3666 r3726  
    16091609#ifdef CPP_COSP
    16101610      IF (ok_cosp) THEN
    1611            DO k = 1, klev
    1612              DO i = 1, klon
    1613                phicosp(i,k) = pphi(i,k) + pphis(i)
    1614              ENDDO
    1615            ENDDO
     1611!           DO k = 1, klev
     1612!             DO i = 1, klon
     1613!               phicosp(i,k) = pphi(i,k) + pphis(i)
     1614!             ENDDO
     1615!           ENDDO
    16161616        CALL phys_cosp(itap,phys_tstep,freq_cosp, &
    16171617               ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, &
     
    16311631#ifdef CPP_COSP2
    16321632        IF (ok_cosp) THEN
    1633            DO k = 1, klev
    1634              DO i = 1, klon
    1635                phicosp(i,k) = pphi(i,k) + pphis(i)
    1636              ENDDO
    1637            ENDDO
     1633!           DO k = 1, klev
     1634!             DO i = 1, klon
     1635!               phicosp(i,k) = pphi(i,k) + pphis(i)
     1636!             ENDDO
     1637!           ENDDO
    16381638          CALL phys_cosp2(itap,phys_tstep,freq_cosp, &
    16391639               ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, &
     
    47004700#ifdef CPP_COSPV2
    47014701       IF (itap.eq.1.or.MOD(itap,NINT(freq_cosp/phys_tstep)).EQ.0) THEN
     4702!        IF (MOD(itap,NINT(freq_cosp/phys_tstep)).EQ.0) THEN
    47024703
    47034704          IF (prt_level .GE.10) THEN
    47044705             print*,'freq_cosp',freq_cosp
    47054706          ENDIF
     4707           DO k = 1, klev
     4708             DO i = 1, klon
     4709               phicosp(i,k) = pphi(i,k) + pphis(i)
     4710             ENDDO
     4711           ENDDO
    47064712          mr_ozone=wo(:, :, 1) * dobson_u * 1e3 / zmasse
    47074713                 print*,'Dans physiq.F avant appel '
Note: See TracChangeset for help on using the changeset viewer.