Ignore:
Timestamp:
Sep 11, 2024, 4:27:07 PM (2 months ago)
Author:
abarral
Message:

Replace REPROBUS CPP KEY by logical using handmade wonky wrapper

File:
1 moved

Legend:

Unmodified
Added
Removed
  • LMDZ6/branches/Amaury_dev/libf/dyn3dmem/leapfrog_loc.f90

    r5184 r5185  
    3939          xios_set_current_context, &
    4040          using_xios
    41   USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO
     41  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO, CPPKEY_REPROBUS
    4242  USE lmdz_description, ONLY: descript
    4343  USE lmdz_iniprint, ONLY: lunout, prt_level
     
    8181  !   Declarations:
    8282  !   -------------
    83 
    84 
    85 
    8683
    8784  REAL, INTENT(IN) :: time_0 ! not used
     
    319316
    320317  IF (ok_guide) THEN
    321     CALL guide_main(itau,ucov,vcov,teta,q,masse,ps)
    322 !$OMP BARRIER
     318    CALL guide_main(itau, ucov, vcov, teta, q, masse, ps)
     319    !$OMP BARRIER
    323320  ENDIF
    324321
     
    796793  !c$OMP END PARALLEL
    797794
    798 
    799 
    800795  IF(apphys)  THEN
    801796
     
    952947    endif
    953948
    954       IF (ANY(type_trac == ['inca', 'inco'])) THEN
    955         CALL finalize_inca
    956         ! switching back to LMDZDYN context
    957         !$OMP MASTER
    958         IF (ok_dyn_xios) THEN
    959           CALL xios_set_current_context(dyn3d_ctx_handle)
    960         ENDIF
    961         !$OMP END MASTER
     949    IF (ANY(type_trac == ['inca', 'inco'])) THEN
     950      CALL finalize_inca
     951      ! switching back to LMDZDYN context
     952      !$OMP MASTER
     953      IF (ok_dyn_xios) THEN
     954        CALL xios_set_current_context(dyn3d_ctx_handle)
    962955      ENDIF
    963 #ifdef REPROBUS
    964      IF (type_trac == 'repr') CALL finalize_reprobus
    965 #endif
     956      !$OMP END MASTER
     957    ENDIF
     958    IF (CPPKEY_REPROBUS) THEN
     959      IF (type_trac == 'repr') CALL finalize_reprobus
     960    END IF
    966961
    967962    !$OMP MASTER
     
    10051000      !$OMP END MASTER
    10061001
    1007         IF (ANY(type_trac == ['inca', 'inco'])) THEN
    1008           CALL finalize_inca
    1009           ! switching back to LMDZDYN context
    1010           !$OMP MASTER
    1011           IF (ok_dyn_xios) THEN
    1012             CALL xios_set_current_context(dyn3d_ctx_handle)
    1013           ENDIF
    1014           !$OMP END MASTER
     1002      IF (ANY(type_trac == ['inca', 'inco'])) THEN
     1003        CALL finalize_inca
     1004        ! switching back to LMDZDYN context
     1005        !$OMP MASTER
     1006        IF (ok_dyn_xios) THEN
     1007          CALL xios_set_current_context(dyn3d_ctx_handle)
    10151008        ENDIF
    1016 #ifdef REPROBUS
    1017           IF (type_trac == 'repr') CALL finalize_reprobus
    1018 #endif
     1009        !$OMP END MASTER
     1010      ENDIF
     1011      IF (CPPKEY_REPROBUS) THEN
     1012        IF (type_trac == 'repr') CALL finalize_reprobus
     1013      END IF
    10191014
    10201015      !$OMP MASTER
     
    10441039      !$OMP BARRIER
    10451040
    1046          IF (ok_dynzon) THEN
    1047 
    1048           CALL bilan_dyn_loc(2,dtvr*iperiod,dtvr*day_step*periodav, &
    1049                 ps,masse,pk,pbaru,pbarv,teta,phi,ucov,vcov,q)
    1050 
    1051           ENDIF !ok_dynzon
    1052 
    1053           IF (ok_dyn_ave) THEN
    1054              CALL writedynav_loc(itau,vcov, &
    1055                    ucov,teta,pk,phi,q,masse,ps,phis)
    1056           ENDIF
     1041      IF (ok_dynzon) THEN
     1042
     1043        CALL bilan_dyn_loc(2, dtvr * iperiod, dtvr * day_step * periodav, &
     1044                ps, masse, pk, pbaru, pbarv, teta, phi, ucov, vcov, q)
     1045
     1046      ENDIF !ok_dynzon
     1047
     1048      IF (ok_dyn_ave) THEN
     1049        CALL writedynav_loc(itau, vcov, &
     1050                ucov, teta, pk, phi, q, masse, ps, phis)
     1051      ENDIF
    10571052
    10581053    ENDIF
     
    10731068        !$OMP BARRIER
    10741069
    1075          IF (ok_dyn_ins) THEN
    1076              CALL writehist_loc(itau,vcov,ucov,teta,pk,phi,q, &
    1077                    masse,ps,phis)
    1078          endif
     1070        IF (ok_dyn_ins) THEN
     1071          CALL writehist_loc(itau, vcov, ucov, teta, pk, phi, q, &
     1072                  masse, ps, phis)
     1073        endif
    10791074
    10801075        IF (ok_dyn_xios) THEN
     
    11671162        !$OMP END MASTER
    11681163
    1169           IF (ANY(type_trac == ['inca', 'inco'])) THEN
    1170             CALL finalize_inca
    1171             ! switching back to LMDZDYN context
    1172             !$OMP MASTER
    1173             IF (ok_dyn_xios) THEN
    1174               CALL xios_set_current_context(dyn3d_ctx_handle)
    1175             ENDIF
    1176             !$OMP END MASTER
     1164        IF (ANY(type_trac == ['inca', 'inco'])) THEN
     1165          CALL finalize_inca
     1166          ! switching back to LMDZDYN context
     1167          !$OMP MASTER
     1168          IF (ok_dyn_xios) THEN
     1169            CALL xios_set_current_context(dyn3d_ctx_handle)
    11771170          ENDIF
    1178 #ifdef REPROBUS
    1179              IF (type_trac == 'repr') CALL finalize_reprobus
    1180 #endif
     1171          !$OMP END MASTER
     1172        ENDIF
     1173        IF (CPPKEY_REPROBUS) THEN
     1174          IF (type_trac == 'repr') CALL finalize_reprobus
     1175        END IF
    11811176
    11821177        !$OMP MASTER
     
    12001195        ENDIF
    12011196
    1202           ! Ehouarn: re-compute geopotential for outputs
    1203 !$OMP BARRIER
    1204 !$OMP MASTER
    1205           CALL geopot_loc(ip1jmp1,teta,pk,pks,phis,phi)
    1206 !$OMP END MASTER
    1207 !$OMP BARRIER
    1208 
    1209            IF (ok_dynzon) THEN
    1210            CALL bilan_dyn_loc(2,dtvr*iperiod,dtvr*day_step*periodav, &
    1211                  ps,masse,pk,pbaru,pbarv,teta,phi,ucov,vcov,q)
    1212            ENDIF
    1213 
    1214            IF (ok_dyn_ave) THEN
    1215              CALL writedynav_loc(itau,vcov, &
    1216                    ucov,teta,pk,phi,q,masse,ps,phis)
    1217            ENDIF
    1218 
    1219       ENDIF ! of IF(MOD(itau,iperiod).EQ.0 .OR. itau.EQ.itaufin)
    1220 
    1221       IF(MOD(itau, iecri)==0) THEN
    1222 
     1197        ! Ehouarn: re-compute geopotential for outputs
    12231198        !$OMP BARRIER
    12241199        !$OMP MASTER
     
    12271202        !$OMP BARRIER
    12281203
    1229 
    1230           IF (ok_dyn_ins) THEN
    1231              CALL writehist_loc(itau,vcov,ucov,teta,pk,phi,q, &
    1232                    masse,ps,phis)
    1233           endif ! of if (ok_dyn_ins)
     1204        IF (ok_dynzon) THEN
     1205          CALL bilan_dyn_loc(2, dtvr * iperiod, dtvr * day_step * periodav, &
     1206                  ps, masse, pk, pbaru, pbarv, teta, phi, ucov, vcov, q)
     1207        ENDIF
     1208
     1209        IF (ok_dyn_ave) THEN
     1210          CALL writedynav_loc(itau, vcov, &
     1211                  ucov, teta, pk, phi, q, masse, ps, phis)
     1212        ENDIF
     1213
     1214      ENDIF ! of IF(MOD(itau,iperiod).EQ.0 .OR. itau.EQ.itaufin)
     1215
     1216      IF(MOD(itau, iecri)==0) THEN
     1217
     1218        !$OMP BARRIER
     1219        !$OMP MASTER
     1220        CALL geopot_loc(ip1jmp1, teta, pk, pks, phis, phi)
     1221        !$OMP END MASTER
     1222        !$OMP BARRIER
     1223
     1224        IF (ok_dyn_ins) THEN
     1225          CALL writehist_loc(itau, vcov, ucov, teta, pk, phi, q, &
     1226                  masse, ps, phis)
     1227        endif ! of if (ok_dyn_ins)
    12341228
    12351229        IF (ok_dyn_xios) THEN
     
    12691263  !$OMP END MASTER
    12701264
    1271     IF (ANY(type_trac == ['inca', 'inco'])) THEN
    1272       CALL finalize_inca
    1273       ! switching back to LMDZDYN context
    1274       !$OMP MASTER
    1275       IF (ok_dyn_xios) THEN
    1276         CALL xios_set_current_context(dyn3d_ctx_handle)
    1277       ENDIF
    1278       !$OMP END MASTER
     1265  IF (ANY(type_trac == ['inca', 'inco'])) THEN
     1266    CALL finalize_inca
     1267    ! switching back to LMDZDYN context
     1268    !$OMP MASTER
     1269    IF (ok_dyn_xios) THEN
     1270      CALL xios_set_current_context(dyn3d_ctx_handle)
    12791271    ENDIF
    1280 #ifdef REPROBUS
    1281   IF (type_trac == 'repr') CALL finalize_reprobus
    1282 #endif
     1272    !$OMP END MASTER
     1273  ENDIF
     1274  IF (CPPKEY_REPROBUS) THEN
     1275    IF (type_trac == 'repr') CALL finalize_reprobus
     1276  END IF
    12831277
    12841278  !$OMP MASTER
Note: See TracChangeset for help on using the changeset viewer.