Ignore:
Timestamp:
Dec 8, 2010, 2:23:01 PM (14 years ago)
Author:
Ehouarn Millour
Message:

Small fix: /* */ C style comment are problematic with Fortran compilers which do the preprocessing themselves.

EM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/branches/LMDZ5V2.0-dev/libf/dyn3dpar/parallel.F90

    r1279 r1462  
    549549       
    550550   
    551     /* 
    552   Subroutine verif_hallo(Field,ij,ll,up,down)
    553     implicit none
    554 #include "dimensions.h"
    555 #include "paramet.h"   
    556     include 'mpif.h'
    557    
    558       INTEGER :: ij,ll
    559       REAL, dimension(ij,ll) :: Field
    560       INTEGER :: up,down
    561      
    562       REAL,dimension(ij,ll): NewField
    563      
    564       NewField=0
    565      
    566       ijb=ij_begin
    567       ije=ij_end
    568       if (pole_nord)
    569       NewField(ij_be       
    570 */
     551!  Subroutine verif_hallo(Field,ij,ll,up,down)
     552!    implicit none
     553!#include "dimensions.h"
     554!#include "paramet.h"   
     555!    include 'mpif.h'
     556!   
     557!      INTEGER :: ij,ll
     558!      REAL, dimension(ij,ll) :: Field
     559!      INTEGER :: up,down
     560!     
     561!      REAL,dimension(ij,ll): NewField
     562!     
     563!      NewField=0
     564!     
     565!      ijb=ij_begin
     566!      ije=ij_end
     567!      if (pole_nord)
     568!      NewField(ij_be       
     569
    571570  end module parallel
Note: See TracChangeset for help on using the changeset viewer.