Changeset 8051


Ignore:
Timestamp:
2017-05-19T16:00:01+02:00 (3 years ago)
Author:
marc
Message:

Tidying up a few bits

Location:
branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_med_diag_trc.F90

    r8025 r8051  
    613613      ENDIF 
    614614 
    615 ! I'm keeping this the same as before, but it looks like it should  
    616 ! be i0100 and not i0200 - marc 8/5/17 
     615! I'm keeping this the same as before for reproducibility, but it looks  
     616! like it should be i0100 and not i0200 - marc 8/5/17 
    617617      IF (jk.eq.i0200) THEN 
    618618         DO jj = 2,jpjm1 
  • branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_mod.F90

    r8039 r8051  
    335335!               fifd_c(jpi,jpj),fifd_a(jpi,jpj),fifd_o2(jpi,jpj),      & 
    336336!               fofd_c(jpi,jpj),fofd_a(jpi,jpj),fofd_o2(jpi,jpj),      & 
    337                fifd_c(jpi,jpj),                                       & 
    338                fofd_c(jpi,jpj),                                       & 
     337               fifd_c(jpi,jpj), fofd_c(jpi,jpj),                      & 
    339338# endif 
    340339               fzmi_i(jpi,jpj),fzmi_o(jpi,jpj),fzme_i(jpi,jpj),       & 
  • branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90

    r8025 r8051  
    556556# endif 
    557557# if defined key_debug_medusa 
    558 ! I'M NOT SURE THIS USEFUL NOW THAT I'VE SPLIT THE DO LOOP - marc 8/5/17 
     558! I'M NOT SURE THIS IS USEFUL NOW THAT I'VE SPLIT THE DO LOOP - marc 8/5/17 
    559559!         if (idf.eq.1.AND.idfval.eq.1) then 
    560560!            DO jj = 2,jpjm1 
     
    588588 
    589589# if defined key_debug_medusa 
    590 ! I'M NOT SURE THIS USEFUL NOW THAT I'VE SPLIT THE DO LOOP - marc 8/5/17 
     590! I'M NOT SURE THIS IS USEFUL NOW THAT I'VE SPLIT THE DO LOOP - marc 8/5/17 
    591591!         if (idf.eq.1.AND.idfval.eq.1.AND.jk.eq.1) then 
    592592!            DO jj = 2,jpjm1 
  • branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/trcsms.F90

    r7912 r8051  
    5353      ! 
    5454      IF( lk_pisces  )   CALL trc_sms_pisces ( kt )    ! main program of PISCES  
    55 ! tmp - marc 
    56       write(numout,*) 'bbb32. before call to trc_bio_medusa' 
    57       flush(numout) 
    58 ! 
    5955      IF( lk_medusa  )   CALL trc_sms_medusa ( kt )    ! MEDUSA  tracers 
    60 ! tmp - marc 
    61       write(numout,*) 'bbb33. after call to trc_bio_medusa' 
    62       flush(numout) 
    63 ! 
    6456# if defined key_debug_medusa 
    6557         IF(lwp) WRITE(numout,*) '--trcsms : MEDUSA OK --  next IDTRA -- ' 
Note: See TracChangeset for help on using the changeset viewer.