Ignore:
Timestamp:
Apr 11, 2018, 10:27:28 AM (6 years ago)
Author:
Laurent Fairhead
Message:

Continuing phasing of DYNAMICO and LMDZ physics

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/DYNAMICO-conv/libf/phylmd/iophy.F90

    r3077 r3312  
    13311331    !IF(.NOT.clef_stations(iff)) THEN
    13321332        IF (.TRUE.) THEN
    1333             ALLOCATE(index2d(nbp_lon*jj_nb))
    1334             ALLOCATE(fieldok(nbp_lon*jj_nb))
    1335    
    13361333   
    13371334            CALL xios_send_field(field_name, Field2d)
    … …  
    13541351                ENDDO
    13551352            ENDIF
    1356    
    1357         ENDIF
    1358                  
    1359         DEALLOCATE(index2d)
    1360         DEALLOCATE(fieldok)
     1353            DEALLOCATE(index2d)
     1354            DEALLOCATE(fieldok)
     1355   
     1356        ENDIF                 
    13611357      ENDIF
    13621358!$OMP END MASTER   
    … …  
    14161412    !IF (.NOT.clef_stations(iff)) THEN
    14171413        IF(.TRUE.)THEN
    1418             ALLOCATE(index3d(nbp_lon*jj_nb*nlev))
    1419             ALLOCATE(fieldok(nbp_lon*jj_nb,nlev))
    1420             CALL xios_send_field(field_name, Field3d(:,:,1:nlev))
     1414
     1415           CALL xios_send_field(field_name, Field3d(:,:,1:nlev))
    14211416                           
    14221417        ELSE
    … …  
    14411436                ENDDO
    14421437            ENDIF
     1438            DEALLOCATE(index3d)
     1439            DEALLOCATE(fieldok)
    14431440        ENDIF
    1444         DEALLOCATE(index3d)
    1445         DEALLOCATE(fieldok)
    14461441      ENDIF
    14471442!$OMP END MASTER   
Note: See TracChangeset for help on using the changeset viewer.