Ignore:
Timestamp:
2016-10-04T14:34:18+02:00 (4 years ago)
Author:
nicolasmartin
Message:

Bugfixes for compilation issues : last commit for trcstp and gfortran doesn't allow starting lines with semicolon

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

    r6140 r6981  
    105105      IF( ln_linssh ) THEN          ! Fix in time : set to the reference one for all 
    106106         !       before        !          now          !       after         ! 
    107          ;  gdept_b = gdept_0  ;   gdept_n = gdept_0   !        ---          ! depth of grid-points 
    108          ;  gdepw_b = gdepw_0  ;   gdepw_n = gdepw_0   !        ---          ! 
    109          ;                     ;   gde3w_n = gde3w_0   !        ---          ! 
     107            gdept_b = gdept_0  ;   gdept_n = gdept_0   !        ---          ! depth of grid-points 
     108            gdepw_b = gdepw_0  ;   gdepw_n = gdepw_0   !        ---          ! 
     109                                   gde3w_n = gde3w_0   !        ---          ! 
    110110         !                                                                   
    111          ;    e3t_b =   e3t_0  ;     e3t_n =   e3t_0   ;   e3t_a =  e3t_0    ! scale factors 
    112          ;    e3u_b =   e3u_0  ;     e3u_n =   e3u_0   ;   e3u_a =  e3u_0    ! 
    113          ;    e3v_b =   e3v_0  ;     e3v_n =   e3v_0   ;   e3v_a =  e3v_0    ! 
    114          ;                     ;     e3f_n =   e3f_0   !        ---          ! 
    115          ;    e3w_b =   e3w_0  ;     e3w_n =   e3w_0   !        ---          ! 
    116          ;   e3uw_b =  e3uw_0  ;    e3uw_n =  e3uw_0   !        ---          ! 
    117          ;   e3vw_b =  e3vw_0  ;    e3vw_n =  e3vw_0   !        ---          ! 
     111              e3t_b =   e3t_0  ;     e3t_n =   e3t_0   ;   e3t_a =  e3t_0    ! scale factors 
     112              e3u_b =   e3u_0  ;     e3u_n =   e3u_0   ;   e3u_a =  e3u_0    ! 
     113              e3v_b =   e3v_0  ;     e3v_n =   e3v_0   ;   e3v_a =  e3v_0    ! 
     114                                     e3f_n =   e3f_0   !        ---          ! 
     115              e3w_b =   e3w_0  ;     e3w_n =   e3w_0   !        ---          ! 
     116             e3uw_b =  e3uw_0  ;    e3uw_n =  e3uw_0   !        ---          ! 
     117             e3vw_b =  e3vw_0  ;    e3vw_n =  e3vw_0   !        ---          ! 
    118118         ! 
    119119         CALL wrk_alloc( jpi,jpj,   z1_hu_0, z1_hv_0 ) 
     
    123123         ! 
    124124         !        before       !          now          !       after         ! 
    125          ;                     ;      ht_n =    ht_0   !                     ! water column thickness 
    126          ;     hu_b =    hu_0  ;      hu_n =    hu_0   ;    hu_a =    hu_0   !  
    127          ;     hv_b =    hv_0  ;      hv_n =    hv_0   ;    hv_a =    hv_0   ! 
    128          ;  r1_hu_b = z1_hu_0  ;   r1_hu_n = z1_hu_0   ; r1_hu_a = z1_hu_0   ! inverse of water column thickness 
    129          ;  r1_hv_b = z1_hv_0  ;   r1_hv_n = z1_hv_0   ; r1_hv_a = z1_hv_0   ! 
     125                                      ht_n =    ht_0   !                     ! water column thickness 
     126               hu_b =    hu_0  ;      hu_n =    hu_0   ;    hu_a =    hu_0   !  
     127               hv_b =    hv_0  ;      hv_n =    hv_0   ;    hv_a =    hv_0   ! 
     128            r1_hu_b = z1_hu_0  ;   r1_hu_n = z1_hu_0   ; r1_hu_a = z1_hu_0   ! inverse of water column thickness 
     129            r1_hv_b = z1_hv_0  ;   r1_hv_n = z1_hv_0   ; r1_hv_a = z1_hv_0   ! 
    130130         ! 
    131131         CALL wrk_dealloc( jpi,jpj,   z1_hu_0, z1_hv_0 ) 
Note: See TracChangeset for help on using the changeset viewer.