New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 6981 for trunk/NEMOGCM/NEMO – NEMO

Changeset 6981 for trunk/NEMOGCM/NEMO


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

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

Location:
trunk/NEMOGCM/NEMO
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90

    • Property svn:executable deleted
  • 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 ) 
  • trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg.F90

    r6140 r6981  
    205205      ENDIF 
    206206      !                          ! Control of surface pressure gradient scheme options 
    207       ;                              nspg =  np_NO    ;   ioptio = 0 
     207                                     nspg =  np_NO    ;   ioptio = 0 
    208208      IF( ln_dynspg_exp ) THEN   ;   nspg =  np_EXP   ;   ioptio = ioptio + 1   ;   ENDIF 
    209209      IF( ln_dynspg_ts  ) THEN   ;   nspg =  np_TS    ;   ioptio = ioptio + 1   ;   ENDIF 
  • trunk/NEMOGCM/NEMO/OPA_SRC/timing.F90

    • Property svn:executable deleted
  • trunk/NEMOGCM/NEMO/TOP_SRC/trcstp.F90

    r6968 r6981  
    137137            nb_rec_per_day = ncpl_qsr_freq 
    138138         ELSE   
    139             rdt_sampl = MAX( 3600., rdttrc(1) ) 
     139            rdt_sampl = MAX( 3600., rdttrc ) 
    140140            nb_rec_per_day = INT( rday / rdt_sampl ) 
    141141         ENDIF 
     
    154154                            iom_varid( numrtr, 'ktdcy'    , ldstop = .FALSE. ) > 0 ) THEN  
    155155            CALL iom_get( numrtr, 'ktdcy', zkt )   !  A mean of qsr 
    156             rsecfst = INT( zkt ) * rdttrc(1) 
     156            rsecfst = INT( zkt ) * rdttrc 
    157157            IF(lwp) WRITE(numout,*) 'trc_qsr_mean:   qsr_mean read in the restart file at time-step rsecfst =', rsecfst, ' s ' 
    158158            CALL iom_get( numrtr, jpdom_autoglo, 'qsr_mean', qsr_mean )   !  A mean of qsr 
     
    168168         ELSE                                         !* no restart: set from nit000 values 
    169169            IF(lwp) WRITE(numout,*) 'trc_qsr_mean:   qsr_mean set to nit000 values' 
    170             rsecfst  = kt * rdttrc(1) 
     170            rsecfst  = kt * rdttrc 
    171171            ! 
    172172            qsr_mean(:,:) = qsr(:,:) 
     
    178178      ENDIF 
    179179      ! 
    180       rseclast = kt * rdttrc(1) 
     180      rseclast = kt * rdttrc 
    181181      ! 
    182182      llnew   = ( rseclast - rsecfst ) .ge.  rdt_sampl    !   new shortwave to store 
Note: See TracChangeset for help on using the changeset viewer.