48 |
|
|
49 |
USE errioipsl, ONLY : histerr |
USE errioipsl, ONLY : histerr |
50 |
use calendar, only: isittime |
use calendar, only: isittime |
51 |
USE mathelp, ONLY : mathop |
USE mathop_m, ONLY : mathop |
52 |
use histcom_var |
use histcom_var |
53 |
|
|
54 |
INTEGER, INTENT(IN) :: pfileid, pitau |
INTEGER, INTENT(IN) :: pfileid, pitau |
190 |
|
|
191 |
use calendar, only: isittime |
use calendar, only: isittime |
192 |
USE errioipsl, ONLY : histerr |
USE errioipsl, ONLY : histerr |
193 |
USE mathelp, ONLY : mathop |
USE mathop_m, ONLY : mathop |
194 |
use histcom_var |
use histcom_var |
195 |
|
|
196 |
INTEGER, INTENT(IN) :: pfileid, pitau |
INTEGER, INTENT(IN) :: pfileid, pitau |
332 |
|
|
333 |
use calendar, only: isittime |
use calendar, only: isittime |
334 |
USE errioipsl, ONLY : histerr |
USE errioipsl, ONLY : histerr |
335 |
USE mathelp, ONLY : mathop |
USE mathop_m, ONLY : mathop |
336 |
use histcom_var |
use histcom_var |
337 |
|
|
338 |
INTEGER, INTENT(IN) :: pfileid, pitau |
INTEGER, INTENT(IN) :: pfileid, pitau |
478 |
! and writing subroutines. |
! and writing subroutines. |
479 |
!-------------------------------------------------------------------- |
!-------------------------------------------------------------------- |
480 |
|
|
481 |
USE mathelp, ONLY : mathop, trans_buff, moycum |
USE mathop_m, ONLY : mathop |
482 |
|
USE mathelp, ONLY : trans_buff, moycum |
483 |
use netcdf, only: NF90_PUT_VAR |
use netcdf, only: NF90_PUT_VAR |
484 |
use histcom_var |
use histcom_var |
485 |
|
|
696 |
! pvarname : The name of the variable we are looking for |
! pvarname : The name of the variable we are looking for |
697 |
! pvid : The var id we found |
! pvid : The var id we found |
698 |
|
|
699 |
USE stringop, ONLY: find_str |
USE find_str_m, ONLY: find_str |
700 |
USE errioipsl, ONLY : histerr |
USE errioipsl, ONLY : histerr |
701 |
use histcom_var |
use histcom_var |
702 |
|
|